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^SC/FOX 1032 01991 Silicon Composers, Inc Potq Alto. CA USA 



SCVFOX I032 Board Featuree 

The 1032 is a plug-on daughter board for either 
the SBC32 stand-alone or PCS32 PC plug-in 
single t)oard computers. 

5 MB/sec SCSI Port. 

Attach up to 7 SCSI Devices. 

4 RS232 Serial Ports, up to 230K t>aud. 

16-bit Bidirectionai-Parallel Port, may t>e 

used as two 8-tA ports. 

2 programmatJte counterAimers. 

Prototyping area on tx)ard. 

Ail bus signal brought out to pads. 

Full Interrupt Support. 

Two 50-pin user application connectors. 

No jumpers, totally software configuratile. 

Driver software source included. 

Single -hS Vott low-power operation. 

Full ground and power plane. 

4 Layer, Eurocard-size: lOOmm x 160mm. 

User nnanual and interface schematics included. 

Low cNp count (8 ICs) for maximum reliability. 

Test routines for SCSI, parallel, and serial 
ports supplied in source code form. 

Plug together up to 6 I032 Boards in a stack. 



Fast Data-Dispersion Program Example 
The program, SEND below, reads IK blocits from a SCSI 
drive and transmits them out one of the 1032 board's four 
RS232 serial ports at 230K Baud. SEND uses only 1032 
facilities. Dtek read speed is limited by SCSI drive speed. 

Program Example 



CfteAte6U*=R 2560 ALLOT 
:f>UT(#k) 
1024 • BUFR BYTE + 
BUFR BYTE DO 
>C@ 
UEMIT 
LOOP; 
: SEND { block# #k} 
230K& 

BEGtN ?DUP WHILE 
20UP 10 MIN 
>R BUFRFki^SCSiRD 
R@PUT 



SWAP B> + SWAP 
REPEAT 
DROP; 



{ 10k disk buffer) 
{ 1KB btocks to serial) 
{ end of buffei) 
{ start of tixiffer DO) 
( get next dtaracter) 
( and emit via serisj) 
{ urttU ttone) 
{ send IK biks to seriaO 
{ baud rates23(M<Bau<:fl) 
( v^le tkKkSi remain..) 
(max 10K in buf) 
( read nKmxn SCSI) 
( and put to serlaQ 
{ decrenfWMii remair^) 
{ up new slatting bkxik) 
( repeat remainirtg test) 
( discard blk# «id exit) 



For additksnal product and prk^ing informatkxi, please contact us at: 
SlUCON COMPOSERS INC 208 CaHomia Avenue, Palo Ato^ CA 94306 (41^3224763 
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Combsort in Forth 

Walter J. Rottenkolber 

The author develops a blazing Forth routine based on the unbelievable (but true) "Fast, 
Easy Sort" from BYTE. Who would expect so much from a mere three lines of code? For test 
cases, the routines published in FDs own "Challenge of Sorts" were ready and waiting. Who 
would have won that challenge, if they had a handy unbreakable Combsort in their hip 
pocket? Try it on your machine and see! 




Y ^ New Stack Tools 

Peter Verhoeff 

Forth is great, but keeping track of the stack and manipulating its contents — especially 
when working with strings — can tax one's powers of visualization and recall. Follow the 
step-by-step process of creating a vastly enhanced and more programmer-friendly way to 
represent and juggle stack items with just a few keystrokes. Warning: these routines could 
change your programming habits. . . 



QuikFInd String Search 

Rob Chapman 

Sure, "Forth is fast" — repeat that mantra to yourself while waiting to compile code from 
a dictionary of several thousand words. The author tweaked his system a bit, then got hooked 
on the potential. His years-long self-study course is described succinctly here, along with the 
anticipated results: a fast hash algorithm for dictionary searches that won't turn your modules 
into molasses. 
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How You Can Help 



\ A / ^'^^ talking to 
ourselves for too 
long, andweneedto 
talk to the rest of the world. 
While I am off setting up 
referees forFD's object-ori- 
ented programming contest 
(we have quite a few excit- 
ing entries), Horace 
Simmons offers the follow- 
ing important guest edito- 
rial. 

A FIG Chapterleaderwho 
immigrated to the San 
Francisco Bay area, Horace 
took the initiative to involve 
himself in FIG's affairs. He 
has provided valuable in- 
sight and ideas at quite a 
few meetings of FIG's Busi- 
ness Group. 

Please take this guest 
editorial to heart, discuss it 
at your cheater meetings, 
and, most of all, act on it! 

— Editor 

FIG exists to provide a 
structure for Forth pro- 
grammers to communicate 
with each other about Forth 
and with those who wish to 
learn more about the lan- 
guage. For several years, 
FIG has been more suc- 
cessful with the dialogue 
with its members than it has 
been with those outside its 
organization. Use of Forth 
has continued to grow over 
the years, even though the 
growth has been outside 
the ranks of full-time, pro- 
fessional programmers and 
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hobbyists. EDNs editor re- 
ports that 10% of its 100,000 
readers use Forth. Because 
FIG's membership is not that 
large, we know that most of 
those readers cannot make 
use of FIG's services. We 
also know that FIG has not 
been reaching them with 
information about how to 
network with other Forth 
programmers. Now, FIG 
could spend some of its 
revenue to run advertise- 
ments in EDNto try to reach 
those users. Or, some FIG 
member could write an ar- 
ticle about one of his projects 
and send it to EDN. 



When EDN publishes 
that article, the member who 
wrote it makes some money. 
Assuming that the member 
mentioned how Forth was 
used and how it contributed 
to the success of the project, 
Forth users will be reached 
and middle-level manage- 
ment can be influenced. By 
including a footnote men- 
tioning FIG, or a biblio- 
graphic reference to FIG 
(P.O.Box 8231, San Jose, 
California 95155, 408-277- 
0668, fax 408-286-8988) and, 
perhaps, to the vendor of 
the Forth package, anyone 
reading the article can re- 



dpANS Forth Released 
for Public Review! 

MajormHestone — the Draft Proposed ANS Programming 
Language Forth was to enter its official public review period 
in October. Copies of the proposed standard may differ from 
development versions (i.e. , the "BASIS" documents), and can 
be purchased from Global Engineering Documents, Inc, 
2805 McGaw Avenue, Irvine, California 92714. Ask for 
document #X3.215-199x. From within the United States and 
Canada, call 800-854-7179; from other countries, call 714- 
261-1455. The U.S. price is $50 per copy; for intemational 
orders, the price is $65 per copy. [This data is from a notice 
posted 9-18-91 on GEnie by the chairman of the X3fl4 
committee. However, Global Engineering had not received 
the document as of 9-30-91, and their ^x)kesman informed 
FD that pricing may be subject to change J 

The public-review period extends from October 18, 1991 
through February 25, 1992. Please send all comments to X3 
Secretariat/CBEMA, Att'n: Lynn Barra, 311 First Street N.W., 
Suite 500, Washington D.C. 20001-2178. Send a copy of all 
comments to American National Standards Institute, Att'n: 
BSR Center, 11 West 42nd Street, New York, New York 
10036. 
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Forth Dimensions welcomes 
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editor, and comments from its 
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in the Forth Interest Group at $40 
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Dimensions, P.O. Box 8231, San 
Jose, CA 95155." 



Forth Dimensions 



Letters tothe Editor—and to your fellowreaders— are always welcome. 
Respond to articles, describe your latest projects, ask for input, advise 
the Forth community, or simply share a recent insight Code is also 
welcome, but is optional. Letters may be edited for clarity and length. 
We want to hear from you! 



ceive a pointer to how he or 
she can personally benefit. 

A hundred of our mem- 
bership identified EDNzs a 
regular trade publication 
they read. As each of you in 
turn publishes one article, 
think of the impact, of the 
"mind space" created among 
project managers. Think of 
the new users brought to 
FIG, made aware of the 
extensive library of Forth 
materials, introduced to the 
FORML conference and the 
Rochester conference. Think 
of the extra money, the 
prestige, the item on your 
resume, as you do your part 
EDN is just one of 200 
magazines identified in our 
member survey. IfEDNis not 
your magazine, why not 
write for Chemical and 
Engineering News, or Auto- 
motive Engineering, or the 
Journal of the American 
Ceramics Society. All you 
have to do to help some of 
your colleagues is write an 
article for your own area of 
expertise and submit it for 
publication to a journal 
which you read. The article 
need not and, indeed, 
should not be an article 
about Forth. Just mention in 
it how the software which 
enabled your success was 
written in Forth. Include, 
perhaps, just three or four 
lines of straightforward code 
that might be readable by 
those knowledgeable about 
your subject, even if they 
don't use Forth. If that 
doesn't seem feasible, don't 
include any code. You are a 
successful practitioner in 
your field; others will want 
to benefit from your experi- 
ences and your judgment. 

Many examples of this 
kind of article abound. The 
May/June 1991 issue of 
Computers inPbysicsYas an 
article entitled "A General 
Purpose Interactive Pro- 
Fort/? Dimensions 



grammable Laboratory In- 
terface System Using the 
IEEE-488 Bus" by B. D. Hall 
of Lausanne, Switzerland. It 
is almost five pages of mate- 
rial on how to implement a 
distributed, interactive in- 
strument control structure 
for use in a physics research 
lab. While the article is about 
controlling instruments, the 
message is how adaptive 
and effective Forth is for 
scientists in the lab. 

Sensors Magazine, April, 
1991, has a feature article 
entitled "Environmental 
Control in Three Dimen- 
sions" by Edward K. Conklin 
of Forth, Inc. The article 
describes the design re- 
quirements, and the hard- 
ware required to control 
temperature, pressure, and 
humidity in the General 
Motors subsidiary Saturn 
Corporation automotive 
manufacturing complex in 
Tennessee. Forth and Forth, 
Inc. are mentioned several 
times in the article, includ- 
ing a sidebar on Forth for 
industrial control. Readers 
are exposed to the strengths 
of Forth, without a single 
line of code being published. 

Perhaps you remember 
how you came to be intro- 
duced to Forth and how, in 
the beginning, you relied 
on others for help and en- 
couragement Now you are 
in a position to repay that 
debt — not to the one who 
brought you to Forth, but to 
someone else who is ready 
and needs the same help 
you did. 

— Horace O. Simmons 



Anti-Vendor Bias? 

Dear Sir: 

I would like to correct a 
misrepresentation of our 
product by Frank Sergeant 
in "An Introduction to 
Pygmy Forth (.FDXni/l). Mr. 
Sergeant insinuates that HS/ 
FORTH does not compile as 
fast as its 40,000 line-per- 
minute advertising claim 
indicates, and that Pygmy 
Forth would be just as fast if 
only he would play the same 
tricks with his numbers. It is 
obvious that his comment 
refers to HS/FORTH since 
only we make that claim. 
Had he been interested in 
facts rather than just an 
opportunity to promote his 
product, he could have 
easily asked us for the de- 
tails. (A '286, not a '486 as 
suggested, no blank lines, 
many words per line, 80- 
character lines, not little 64- 
character ones, twice as fast 
as Pygmy Forth, both so 
much faster than anything 
else it doesn't matter any- 
way). I also notice that his 
benchmark applies to a 
pygmy application in a 
pygmy system, the figures 
would not necessarily hold 
for a large application in a 
large system. Ours is for a 
large application in a large 
system. Our installable/re- 
movable hash system has 
also been used reliably for 
several years now, and will 
no doubt be the unac- 
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knowledged inspiration of 
many other "improved" 
Forth systems. Copying 
ideas developed by others 
may be a form of flattery; 
falsely denigrating those 
original products to flatter 
the copy is pretty low. 

It is regrettable that the 
anti-vendor, pro-freebie bias 
of Forth Dimensions allows 
such articles to be published. 
Such a contentless article by 
any vendor about his 
product would have been 
rejected immediately. As a 
matter of history. Forth Di- 
mensions doesn't publish 
information about any 
vendor's product or features 
except as paid advertising. 
Since other magazines 
publish very little on Forth, 
this policy effectively pre- 
vents the discussion of the 
relative merits of vendor 
systems, and restricts edito- 
rial coverage to consultants 
and hobbyists, who often 
"invent" features already in 
commercial systems. Ad- 
vertising, however, comes 
in all forms. This article acts 
as advertising for Mr. 
Sergeant's consulting busi- 
ness. Donate a minimal 
Forth system free, get free 
advertising in Forth Di- 
mensions and on the BBS's, 
then pick up the bucks 
consulting and selling utili- 
ties. A popular route with 
too many Forth hackers, and 

(Continued on page 10.) 
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Combsort in Forth 



Walter J. Hottenkolber 
Visalia, California 



/n their aiticle, 'A Fast, 
Easy Sort" (.BYTE, April 
1991), Richard Box and 
Stephen Lacey describe 
how, by adding three lines 
of code to the ubiquitous 
bubble sort, they created 
Combsort, a fire-breathing 
monster capable of a 
scorching 2600% increase 
in sorting speed. This 
seemed too good to be true; 
it also was the April issue. 
But read on. 

To test the claims made 
of Combsort, I decided to 
use the routines published 
in The Challenge of Sorts' 
iFD XI/3). These provide 
for an integer array that can 



Waller J. Rottenkolber says that Rxth 
provides the same close-to-the-silicon 
feel as assembler, but wlhout the pain. 
Early on, he experimented with fig- 
R3RTH and other languages, but still 



be filled with eight different 
patterns of data. A compre- 
hensive analysis section is 
included, but I had to forego 
it, as my computer — a 5 
MHz Kaypro II — doesn't 
have a built-in clock. All 
times are by the Armstrong 
method, i.e., me staring 
bleary-eyed at my watch. 

The screens provide 
Forth code for the data ar- 
ray and patterns from the 
Challenge. If you have a fast 
computer with a built-in 
dock, you will be much 
happier with the original 
test suite, as it automates 
the entire sort test and prints 
a comprehensive report of 



the results. 

BUBBLE 1 is the Forth 
translation of the True BA- 
SIC listing that provides the 
basis for Combsort. This 
version uses a flag 
(-SWITCH) to check for the 
dean pass that marks the 
end of the sort. 

COMBl is the Combsort 
derived from bubble 1. 
Only three lines of code 
make the difference. These 
introduce a gap between 
the elements to be com- 



pared. As the sort 
progresses, the gap narrows, 
stepbystep, toone, at which 
point the Combsort behaves 
like a bubble sort. The ini- 
tial gap is calculated by di- 
viding the array size by a 
"shrink factor," whose value 
is 1.3, and converting the 
result to an integer. In Forth, 
the scaling routine (10 13 
* /) does the calculation. At 
each cyde in the sort, the 
gap is narrowed by the same 
factor. Cox and Lacey found 
the shrink factor by trial and 
error. Too small, and the 
sort behaves more like a 
bubble sort; too large, and 
the sort becomes chaotic, 
varying in speed unpre- 
dictably with minute changes 
in array size. 

C0MB2 is my version of 
their optimized Combsortl 1 . 
If you take an integer and 
divide repeatedly by 1.3, as 
in the gap calculation, 
eventually the progression 
will pass through the values 
nine, ten, or 11. Cox and 
Lacey determined that the 
gap sequence following 
nine and ten sorts more 
slowly than the sequence 
beginning with 11. So they 
added a switch statement 
(they wrote this in C) to trap 
the nine and ten gaps and 
convert them to gap 11. 

You will find the QUICK 
and BUBBLE2 sort routines 



used in the tests in the Chal- 
lenge artide. 

The bubble sort se- 
quence proceeds by re- 
peatedly sweeping an array 
from one end to the other. 
Step by step, it compares 
two adjacent elements in 
the array and, depending 
on the outcome, may swap 
them. Values moving in the 
direction of the sweep can 
make several steps toward 
their sorted location. How- 
ever, values that must move 
against the sweep do so 
only one step at a time. To 
speed up the sort, a way 
must be found to gather 
these slow values and bring 
them rapidly to the head of 
the sweep. 

The Combsort takes a 
direct approach. It simply 
inserts a gap between the 
elements and then does a 
bubble sort. As a result, the 
sort starts at both ends of 
the array (see Figure One). 
This pumps the slow values 
from the "wrong" end of the 
array to where they belong. 
As the gap narrows, the 
center of the array is in- 
duded in the sort, but the 
leap-frog action of the sort 
persists until the gap nar- 
rows to one. 

The sort times are shown 
in Figure Two. The sort 
patterns are as follows: 



Now is the time to retire your 
bubbie sort to tfie museum of 
archaic aigorithms! 
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Figure One. Combsort sweeps data from both ends 



Ramp — ascending values, 
already sorted. 
Slope — descending values. 
Wild — random signed val- 
ues. 

Shuffle — a Ramp randomly 
reordered (no duplicates). 
Byte — random eight-bit 
values. 

Flat — a single random value. 
Checker — two random val- 
ues placed alternately on 
even/odd addresses. 
Hump — Gaussian distribu- 
tion of values. 



When I first ran BUBBLE2 
on the Slope data pattern, I 
thought my computer died 
and went to heaven. After 
spending the better part of a 
day trying to debug the sort 
code and reviewing all about 
nested DO... LOOPS, I con- 
cluded that the sort actually 
was working... and work- 
ing. . . all 2078 seconds of it 
Then BUBBLE 1 took a gla- 
cial 3150 seconds (that's 52+ 
minutes, Bubba) to sort the 
same pattern. This ended 
any notion to test the bubble 
sorts further. 

The Combsort gave an 
amazing account of itself. It 
is 7583% faster than the 
bubble sort on which it is 
based, and an average of 
only 54% slower than the 
Quicksort. Because of its 
design, it spends a some- 
what greater time than the 
other sorts on data that is 
already sorted or of flat 
value. I regard this as a 
small price to pay for such a 
simple high-performance 
sort routine. 

I found no advantage to 
the optimized Combsort. On 
my system, it actually ran 
about 5% slower than the 
simpler version. 

All the sort times should 
be considered as relative 
and not absolute. You can 

Forth Dimensions 




Figure Two. Comparative sort times on test data (on a 5 MIHz Kaypro II). 
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boost the performance by 
revising 58, S ! , COMPARE, 
and EXCHANGE. These 
words were hampered by 
extra code used for the test 
programs. In running the 
time tests, I left them as-is 
because bubble 2 and 
Quicksort used them. I re- 
moved some of these extra 
words when cleaning up 
the screens for tliis article, 
and discovered that the 
times were now cut in half 
To sum up, the Combsort 
is real. If you have been 
using a bubble sort, now is 
the time to retire it to your 
museum of archaic algo- 
rithms. If you are using a 
complex sort because noth- 
ing else was fast enough, 
check out the Combsort I'm 
quite impressed at what a 
clever idea and three lines 
of code can do, and you will 
be too. 



(Code begins on next page.) 



Total control 

For Programming Professionals: 
an expanding family of compatible, high- 
performance, compilers for microcomputers 



For Deveiopment: 

Interactive Fbrth-83 Interpreter/Ctompilers 
for MS-DOS, OS/2, and the 80386 

• 16-bjt and 32-bit implementations 

• Full screen editor and assembler 

• Uses standard operating system files 

• 500 page manual written in plain English 

• Support for graphics.floating point, native code generation 



For Applications: Forth-83 Metacompiler 

• Unique table-driven multi-pass Forth compiler 

• Compiles compact ROMable or disk-based applications 

• Excellent error handling 

• Produces headerless code, compiles from intenriediate states, 
and performs conditional compilation 

• CrossKX>mpiles to 8080, Z-80, 8088, 68000, 6502, 8051, 8096, 
1802, 6303, 6809, 68HC11, 34010, V25, RrX-2000 

• No license fee or royalty for compiled applications 



mi 



Laboratory Microsystems Incorporated 
Post OHice Box 10430, Marina del Rey,CA 90295 
Phone Credit Card Orders to: (213) 306-7412 
BUC: (213)301-0767 
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VARiAaE SEES 


£ Coateort in Forth 




: SETUP ( — > 1£34 SEES .' ; 


3 




: mmi I — r, ) 


5 Routines to Test Sort 




SEED e 31423 # 63£7 + DUP SEED ' ; 
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: CHOOSE ( Ijiuji -- 0..1i»it-3 > 


8 




RANDOM m SWAP' DROP ; 


9 "The OiaUeriqe of Sorts", 










: SAUSS- ( B ~ u ) 






mmt msm d+ RANDcet d+ 


i£ WaUer J. fiottenkolber 




RANDM D+ )WWDC« D+ RANDOM D+ 


33 




r ) iM iMnn r^i^Vt ncnfi t dliaTi niwi m 
UB/nO!) SWHP DfnJP UB# !>»*' DHlfr' ; 
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\ Coabsort Load Screen 
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\ RandOB Data Patterns 


i 

S £ S THRU 




! RAW ( ~ ) ITEMS DO J 1 S.' lOIP ; 


3 




; SLOPE ( — ) ITEKS DO IT£I« 3- I - I S? Lm' ; 






; WLD < ~ ) ITEilS 8 DO RfflffiOM I S! LOOP ; 


5 




! 9«#^FLE ( — ) 


6 




SAW< 3TEXS DO HEWS MfflSE 2 EXD#!fffi£ LOOP i 


7 




} BVTE < — ) ITEMS DO £56 CHOOSE 1 Sf L0£»:' ; 


a 




: FLAT i - > SAiiffiOW lTE>e DO DW^ I S.' LSJP DR£^ ; 


9 




; CHECKER ( — ) RAI®0» mSXM 


id 




mm DO Dup I s? SWAP lop msp 
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; im> i — > ITE«S DO £56 SAUSS I S? LOOP ; 
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\ Data Array and Utilities 


HJR«7l«V9l 


\ Sats sort test 


3 : CELLS ( a — a' > £» ; 






£ : £CaLS < a ~ a' ) £* £» ,■ 




: TEST-DATA ( ~ ) 


3 




\ Checks if data is sorted. 


ie£4 CONSTANT ITOK 




DATA » nm 3 DO DATA 1 CELLS + 9 SWAP ms ) 


5 CiEATE OATfl i — a I 2TE«S CELLS ALLOT ; 




ABORT" Data has not been sorted. " 


6 




* nfirt rvorm ■ 
LOUM BKUP ; 


7 J Se ( index — n ) CaLS BATA + & j 






S : S! in index ~ ) CELLS DATA + .' ; 






9 

10 : CDNW/S ( nl ri£ 1)0)1) 






11 < >R > 1 AM) R> Oft ; 






1£ 






13 : EXCHANK < #1 «£ — ) 






14 £I)UP S» SUAP S» ROT S) Sm S.> ; 






15 
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mm -SWITCH ON 
mm 1- e DO 

IF I 11+ EXCHflNS -SWITCH OFF THDK 
-SWITCH P UNTIL : 
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2 VARIABLE -SWITCH 
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11 

12 
13 
14 
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: COIffil i - > 
ITEMS GflP ' 

BESIN SflP e 18 13 #/ 1 HfiX SAP .' 
-9WITW £»i 
ITEMS SAP 9 - e 
SO 

I S)P e + s& I se conwfiE «< 

IF 1 I SAP e + EXCHANGE -SWITCH OFF mn 

LOOP 

-SWITCH » SAP * 1 = Al® UWTIL ; 
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VARIABLE -SWITCH 



VARIAS^ SAP 



asm ( — > 

ITE«S SAP ' 

BESIX SAP e 1« 13 ♦/ 1 KAX 

W DUP 9 = SWAP 1» = S» IF WIOP 11 THEN SAP .' 
-WITCH m 

ivLm m'i -am 

I SAP e + Se i S» COMPARE 8< 

IF I I SAP e + EXCHANGE -SWITCH OFF THEN 
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FORML CONFERENCE 

The original technical conference 
for professional Forth programmers, managers, vendors, and users. 

Following Thanksgiving, November 29-December 1, 1991 

Asilomar Conference Center 
Monterey Peninsula overlooking the Pacific Ocean 
Pacific Grove, California U.S.A. 

Theme: Simulation and Robotics 

Papers are invited that address relevant issues in the development and use of Forth in simulation and 
robotics. Virtual realities, robotics, and graphical user interfaces are topics of particular interest. Papers 
about other Forth topics are also welcome. 

Attendees are invited to enter a robot in a robotics contest where the robot solves a puzzle. 

Mail abstract(s) of approximately 100 words to FORML Conference, Forth Interest Group, P.O. 
Box 8231, San Jose, CA 95155. 

Completed papers are due November 1, 1991. 

Conference Registration 

Registration fee for conference attendees includes conference registration, coffee breaks, and note-book of papers sub- 
mitted, and for everyone rooms Friday and Saturday, all meals including lunch Friday through lunch Sunday, wine and 
cheese parties Friday and Saturday nights, and use of Asilomar facilities. 

Conference attendee in double room — $350 • Non-conference guest in same room — $200 • Children under 17 years old 
in same room — $140 • Infants under 2 years old in same room — ^free • Conference attendee in single room — $450 
Forth Interest Group members and their guests eligible for ten percent discount on registration fees. 

Register by calling the Forth Interest Group business office at (408) 277-0668 or writing to: FORML Conference, 
Forth Interest Group, P.O. Box 8231, San Jose, CA 95155. 



(Letters, from page 5.) 
one more reason that Forth 
is not more widely used. 
Isn't it time to start inform- 
ing your readers about real 
Forth systems from real 
vendors committed to pro- 
viding complete systems? 

Sincerely, 

Jim Callahan, President 
Harvard Softworks 
P.O. Box 69 
Springboro, Ohio 45066 

November 1991 December 



ne Solutions 

Dear Editor, 

In reply to Keith Brewster 
iFD Xm/2), since 1984, I 
have used muSpeed II, a 
special Forth for the Apple 
He. It consists of a proces- 
sor card Ontel 8231 A and 
arithmetic chip) and two 
diskettes (under DOS 3-3). 
Its characteristics: single- 
and double-precision math 
(16 and 32 bits). All floating- 
point operations are 32 bits. 



Range: 0,9223367 E+19. 
Also, it may use RAM ex- 
pansion cards. The card- 
and-language system is a 
product of Applied 
Analytics, Inc. (8910 
Brookridge Dr., Upper 
Marlboro, Maryland 20772). 
Also, you may use 
GoFORTH under ProDOS 
Ole, Ilgs) from Pair Software. 
Or MasterForth with floating 
point, from MicroMotion. 
Today, I prefer F-PC 



running in an 80286-80287. 
Sincerely, 

Luis de la Cerda Delpin 
Universidad de Chile 
Casilla 13706 
Santiago, Chile 

Singapore Slingshot 
Targets FIG Issues 

Dear Editor, 

With reference to the 
letter tided "Black-Belt Ex- 
haustion & Lean, Mean FIG" 
iFD Xni/3), we are truly 
Forth Dimensions 



surprised that FIG currently 
has only 2000 members. 
Does that include interna- 
tional members? We 
Forthians must have more 
than 2000 members in 
business using Forth in one 
way or another, so what 
went wrong? 

The reason, we think, 
Harris abandoned its Forth 
efforts is obvious: the root is 
always money. If it is a hot 
product, we should be 
seeing the third generation 
of it by now. 

Let me tell you the story 
of how our company got 
into Forth. It will explain 
my next suggestion on how 
to increase the membership 
figures and, more impor- 
tantly, how to get more re- 
sources and attention from 
third-party vendors in order 
to make money. 

My company specializes 
in making Eurocard, STD- 
bus-type controller boards 
and peripherals. Initially, we 
used assembly-language 
software monitors to run 
those boards. We found that 
customers had problems 
trying to debug such pro- 
grams, especially when the 
equipment was pie-installed 
on site. So we looked around 
for a high-level, user- 
friendly, and interactive 
language that is also small, 
fast, and has almost all the 
advantages and conve- 
nience of a PLC (program- 
mable logic controller). 

We tried BASIC before 
coming to Forth. Since then, 
all our products have been 
programmed in Forth and 
assembler, and it has been 
used in a wide variety of 
applications, especially 
building and machine real- 
time automation. The inter- 
active, real-time nature of 
Forth facilitates tuning on- 
the-fly like no other lan- 
guage. 

In an effort to improve 
Forth Dimensions 



our programming skills and 
knowledge, we tried to buy 
all the Forth software and 
tools on the market. We 
began to realize that, slowly 
but surely. Forth tools and 
systems are being removed 
from vendors' product list- 
ings, or else the tools are 
outdated. We remember the 
times when most major 
magazines carried Forth ar- 
ticles and advertising. 

Without self-sustaining 
third-party support (i.e., 
anyone using or promoting 
Forth must make money). 
Forth will become outdated 
due to too little economic 
activity. 

We have some state- 
ments, experiences, and 
suggestions to share with 
you. Some of them may 
already have been thought 
of, and we apologize if we 
offend anyone by any of the 
suggestions or statements. 
We would like FD to com- 
ment on all the following. 

The objective is to rees- 
tablish ourselves at least as 
a viable, ongoing, bankable 
language. (Note: some of 
these statements tend to 
become self-fulfilling, or 
chicken-and-egg problems; 
some of them may overlap.) 

1 . We found that through 
FD we learn a lot about the 
state-of-the-art in Forth, but 
nothing that will benefit the 
average (majority) user. 
Therefore, ordinary mortals 
(us) who normally buy 
computer magazines just for 
the Forth articles, would not 
buy FDot join FIG, because 
it is of no economic and 
immediate educational 
value. 

2. We (especially compa- 
nies) also buy computer 
magazines just to see what 
are the latest products, tools, 
and previews on the mar- 
ket, so why not F£>? 

3. We get a little shaky if 



Forth and its tools begin to 
become dated. I.e., who 
would want to produce 
state-of-the-art products for 
a market of a few thousands? 

4. We have a very keen 
interest in hardware that can 
be used by Forth, semicon- 
ductors as well as 
board-level devices. We do 
not see any vendors given 
free space, as in EDN or 
Electronic Design, for ap- 
plication articles. We would 
buy the magazine just for 
such an article. Maybe even 
ask the vendor to pay a little 
for the promotion space. 

5. Maybe FZ>is unable to 
do the above because it is a 
private magazine. Well, 
gentlemen, it is time to open 
up. Otherwise, the world 
will pass us by and it will be 
so sad, especially now that 
we already have the lan- 
guage on silicon and 
restricted marketing. 

6. The day that one of the 



majority-supported lan- 
guages acquires Forth's 
interactive characteristics. 
Forth will be dead. 

7. Since Forth is good in 
real-time and control appli- 
cations, include in every 
issue of FD one or more 
related articles (repeating 
every fewyears, if necessary, 
to ensure maximum cover- 
age). 

8. Anyone who makes 
money using Forth will have 
no problem buying one 
year's subscription to a Forth 
magazine, provided the 
magazine has some practi- 
cal use (to everyone?) at all. 

9. FD should use the ex- 
ample of major computer 
magazines, but with a dif- 
ference. Use the charac- 
teristics of clannish and 
cultisl Forthians to cultivate 
a readership. 

10. Make FD into The 
ForthMagazine — attracting 
all people by carrying any 




A Forth Programming System 
For Palmtop Computers 

Turn your palmtop computer into a portable software 
development system with UTIL, a small and fast im- 
plementation of Forth. Optimized for the Atari 
Portfolio and Hewlett-Packard 95LX, a PC version of 
UTIL is also available. 

m Small kernel of just 8K and entire system of under 
24K maximizes space for your data and programs 

^ Uses text source files created and modified with your 
palmtop editor 

M Includes Forth compiler and decompiler, 8086 
assembler and disassembler, comprehensive user's 
guide with examples and games 

M Metacompiler and i860 development kit options 

Source code available for utility files 

UTIL is priced from just $70. To order your copy, 
call today. 

Essex Marketing Services Inc. 
272 Old Farms Road Simsbury CT 06070 
Phone (203) 651-8284 Fax (203) 676-9481 
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CALL 

FOR PAPERS 



'92 



In conjunction with the ACM Computer Science Conference, ACM SIGCSE Computer 
Science Education Conference and the ACM SIGAPP Symposium on Applied Computing 



FORTH LANGUAGE WORKSHOP 



March 5-7, 1992 



Kansas City, Missouri 



Come share recent work on the Forth language and its use in applications. 
Expose the CSC, SIGCSE and SIGAPP conference participants that register for 
our conference to Forth through the presented papers and tutorials. Discount 
cross-registration with CSC, SIGCSE and SIGAPP is available. 

Papers on all aspects of Forth are invited. Here are some ideas: 



Forth in Education 
ANS Forth Compliance 
Formal Methods 
Object Oriented Forth 



Development Environments 
Software Management 
Forth Engines 
Optimizing Compilers 



Refereed Papers: 100 word abstract by December 1, 1991 and a draft paper by January 
1, 1992 (max. IS pages). Advantages of submitting a refereed paper include feedback 
from other experts, possible presentation time during the CSC conference overlap track, 
other preferential presentation times and preferential proceedings space. 

Unrefereed Papers: abstract by February IS, 1992 and a final paper by the conference. 

Request an author's kit from the program chair for format information. All submissions 
will get presentation time and proceedings space. 

Features 

Keynote Speaker: Charles Moore, Session on Software Management featuring 
Mike Wong of IBM, tutorial Introduction to Forth, Panel Session on "Moving 
fi-om the Classroom to the Real World", ANS Forth Roundtable, and other 
invited speakers. A separate half day tutorial on ShBoom, a lOO+Mhz stack- 
based 32-bit RISC microprocessor, and Open Boot: Portable Forth-based 
Firmware, will also be held. 



Hosted By: 

Digalog 

Shaw Laboratories 
Nanotronics Inc. 



For pap>er submission 
information contact: 

Program Chair 
Dr. Paul Frenger 
P.O. Box 820506 
Houston, TX 77282-0506 
(713) 589-9040 
GEnie: P.FRENGER 



To assist in conference organization 
or for special presentations contact: 

Conference Chair 
George Shaw 

Shaw Laboratories Limited 
PO Box 3471 
Hayward, CA 94540-3471 
(510) 276-5953, 276-6050 fax 
GEnic: G.SHAWl 
email:geo rge_shaw@mts.oc.wayn6.edu 



Program Committee 

Dr. Alan Furman Dr. Nicholas Solntseff 
Martin Fraeman John Hayes 
Irving Montanez Dr. Harvey Glass 

Sponsored by the ACM Special /nterest Group on Forth 



and all types of articles, as 
long as they are related to 
Forth. 

11. Before FD has the 
mass-market clout, encour- 
age all types of 
advertising — Forth or oth- 
erwise — at cost or slightly 
higher. This will attract all 
vendors (pooling the mar- 
ketplace), thus attracting 
users. 

12. Use cheaper paper, if 
possible, because it is the 
content that will ultimately 
attract the money and, 
therefore, ensure survival as 
an entity to fight and propa- 
gate the Forth art. (No food, 
no art.) 

13. Do anything possible 
to attract mass-market at- 
tention, even if we have to 
sacrifice some of the purists. 

14. Allow vendors to write 
about their products and, if 
necessary, help them to 
present it on paper at cost. 

15. Have a reader-service 
card, if possible. 

16. Help vendors to port 
their products to Forth, and 
advertise this. 

17. Have a service where 
hardware vendors can use 
FD as a trading house, just 
as FD '\s doing with software 
and books by mail order. 

18. Start a vendor query 
column in which readers 
can question vendors. 
Vendors whose answers are 
published should pay. 

19. Write a super-duper, 
compact version of Forth — 
first one for embedded 
systems, because it is easier, 
and later a version for disk- 
based systems. Include all 
the works, trappings, warts, 
and porting information, and 
give it to all vendors with 
the only condition that they 
can add to it but not change 
it This will instandy estab- 
lish a world-wide Forth 
standard. Do not worry 
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F83 

New Stack Tools 



Peter Verhoeff 
Glendale. California 



Forth is a wonderful 
programming lan- 
guage. After all, what 
other language will let you 
add new commands by 
typing in their definitions, 
or execute algorithms by 
typing their names? 

However, one thing I 
have personally had diffi- 
culty with is keeping track 
of what's on the stack and 
how to marupulate its con- 
tents. For example, in 
working with strings it is 
not uncommon to have six 
items — that is, three string 
addresses and three string 
lengths — on the stack. To 
keep all these in the right 
place can be quite a trick. 

Since it was time for me 
to write another article for 
Forth Dimensons, I decided 
to tackle the subject of 
simplifying stack manipula- 
tion and share my findings 
with the readers. Perhaps 
some useful things would 
come to light, which might 
make a Forth programmer's 
life easier. 

Background 

Back in the mid-eighties, 
I read something on that 
topic in Forth Dimensions. I 
believe the author of that 
article created stack words 
where, for example, to re- 
verse six items on the stack, 
you would say something 



like 

S" ABCDEF I FEDCBA" 

The six letters to the left of 
the vertical bar would rep- 
resent the starting stack 
picture and those to the 
right the result of the op- 
eration. 

Since I no longer have 
the article, I am not sure 
about exactly how this was 
done, but I believe that the 
stack was first unloaded to a 
storage area, from which 
items would then be pushed 
back onto the stack in the 
desired sequence. 

First Approach 

The first simplification I 
made to the above method 
was to replace the string to 
the left by a single letter. 
The above stack picture thus 
became: 

S" F I FEDCBA" 

where the first letter F, be- 
ing the sixth letter of the 
alphabet, indicated that 
there were six items on the 
stack. Using a letter, rather 
than a numeral, would allow 
26 stack items to be repre- 
sented. Later, I created a 
separate word to dump the 
stack contents, which you 
would do once and then 
load from the storage area 



whenever you needed stack 
items. 

I created an algorithm 
with which to do this and it 
performed very well. The 
code to do this was simple 
and word definitions using 
this type of stack notation 
looked a lot less cryptic than 
the usual definitions with 
the DUPs, ROTs, SWAPS, and 
so on. What's more, it was 
easy to figure out what was 
being done to the stack in a 
word definition, by looking 
at these new stack words. 

A further refinement I 
put in was after I realized 
that stack items often would 



be incremented or 
decremented. I therefore 
wrote some code to recog- 
nize the four arithmetic 
operators +, -, *, and /, as 
well as the numerals 
through 9 in the stack pic- 
ture. Thxis, to increment a 
string's address by 1 and 
reduce its length by 1, you 
would say, 

S" A1+B1-" 

(where A = address and B = 
length.) 



Second Approach 

However, I was not quite 
happy yet. First, there was 
the fact that the stack was 
no longer used as a stack, 
since its contents were be- 
ing dumped to a storage 
area, which was somewhat 
of a violation of its purpose. 
More important, however, 
was that the storage space 
for the stack data was being 
shared by each occurrence 
of this "stack string." This 
meant that any words be- 
tween stack strings poten- 
tially would mess up the 
data in the storage area if 
their own definitions also 



contained stack strings. 

When I realized this, I 
took a long, hard look at the 
purpose of the exercise. I 
discovered that there were 
really three different pur- 
poses: 

a. Rearranging the stack 
contents, without regard 
to the mechanics of how 
this was done. This 
would be useful in test- 
ing and debugging of 
algorithms. 



Note that there are only three 
basic stack operations: 
ROLL, PICK, and DROP... 
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b. Finding out the "stack 
primitives," such as 
DROP, ROT, SWAP, etc., 
that would yield the 
specified ending stack 
picture from a given 
starting stack picture. 
This would come in 
handy if you wanted to 
write new code in the 
conventional fashion. 

c. Creating new stack words 
from existing stack 
words, for use in fre- 
quently occurring stack 
patterns. 

All three objectives have 
been achieved in the fol- 
lowing code. The task was 
harder than anticipated, but 
I believe it was worth the 
effort in creating a useful set 
of tools. 

The Forth used for the 
code below was F83 Version 
2.1. It is quite possible that 
there is a shorter and more 
elegant way of accomplish- 
ing the same result. Consider 
my efforts as a prototype. 

Stack String Examples 

Before delving into the 
code, let's take a look at 
some examples of stack 
strings. The simplest one is 
A|, which takes the top 
item off the stack and drops 
it Likewise, B| represents 
2DR0P, since the B to the 
left of the verical bar (|) 
represents AS. B | A does the 
same thing as A | , but it as- 
sumes that there are two 
items on the stack. By the 
way, it does not matter how 
many items are actually on 
the stack, as long as there 
are at least as many items as 
represented by the letter to 
the left of the vertical bar. If 
a stack string starts with the 
letter F, you will need at 
least six items on the stack 
to execute it. 

Instead of the vertical 



Scr # STACKS. BLK 

\ STACK MANIPULATION, USING STACK STRINGS. 
1 
2 

3 Copyright 1991, by Peter Verhoeff 
4 

5 P.O. Box 10424 
6 

7 Glendale, CA 91209 
8 



Scr # 1 STACKS. BLK 

\ Load Screen. 
1 

2 2 16 THRU 
3 



Scr # 2 STACKS. BLK 

\ Primitives and strings. 
1 

CREATE S$0 81 ALLOT 
CREATE S$l 28 ALLOT 
CREATE S$2 28 ALLOT 
VARIABLE .FLG VARIABLE LTR 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



C+! (S # adr ~ ) 
TUCK C@ + SWAP C! 



\ Text string. 

\ Starting string (pseudo stack) 

\ Ending string (pseudo stack) 

\ Display flag, letter variable 

\ Increment contents of adr by # 



$+$ (S adr len adr_to — ) \ Append 1st string to 2nd one 
>R TUCK R@ COUNT + SWAP CMOVE R> C+ ! ; \ Update count too. 

\ Enter a string from keyboard. 



BL 



(S — ) 
PARSE-WORD 
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Scr # 3 STACKS. BLK 

\ General purpose words . 
1 

UC? (S char — t|f) 
ASCII A ASCII Z BETWEEN 



LC? (S Char — t |f) 
ASCII a ASCII z BETWEEN 



OP? (S char 
DUP ASCII + 
OVER ASCII * 



NUM? (S char — t |f) 
ASCII ASCII 9 BETWEEN 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



Scr 
\ 
1 

2 : 

3 

4 

5 : 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 



Scr # 5 STACKS. BLK 

\ Text string primitives, 
1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



\ True if upper case . 



\ True if upper case . 



— t|f) 

OVER ASCII - = OR 
= OR SWAP ASCII / = OR 



\ Check if arithmetic operator. 



\ Check if numeric . 



# 4 STACKS. BLK 

More general purpose words . 

LC (S char — char') 
DUP UC? IF BL + THEN ; 

-SCAN (S adr len char - adr' 
-ROT TUCK +1- SWAP TUCK 
?D0 DROP 2DUP Ce = 
IF I 1+ LEAVE ELSE 1- THEN 
LOOP ROT DROP ; 



\ Convert char to lower case. 



len') \ Reverse scan for char 
\ Start at end of string. 



S$l+C (S char — ) \ Append char to origin string. 

S$l COUNT + C! 1 S$l C+! ; 



S$0+$ (S adr len — ) 
S$0 $+$ 1 S$0 C+! 



\ Append string to text string. 
\ Put a trailing space. 



S$0+C (S char — ) \ Append char to text string. 

S$0 COUNT + C! 2 S$0 C+ ! ; \ Put a trailing space. 



S$0+# (S # ~ ) 
ASCII OR S$0+C 



\ Append number to text string. 
\ Store as ascii numeral. 



S$0I (S — ) \ Initialize text string. 

S$0 81 BLANK ASCII : S$0 1+ C! 2 S$0 C! ; 



bar, we can use the amper- 
sand C&), which indicates 
that the starting string is to 
be repeated in the ending 
string. Thus, D&AB is the 
equivalent of D I ABCDAB, or 
20VER. 

Not only is this a shorter 
way of writing the same 
thing, it allows you to switch 
between saving or not sav- 
ing the original pattern by 
changing a single character. 
For example, D 1 AB DROPS 
items C and D from the stack 
and retains A and B (i.e., 
2DR0P), whereas D&AB 
PICKS items A and B, leav- 
ing the original ABCD intact 
at the bottom (i.e., 20VER.) 

How to Use 
Stack Strings 

I created two different 
high-level stack-string in- 
terpreters, as shown in 
screen 14. The first one, SM, 
is for use within a colon 
definition. SM does not 
create a new stack word, 
but instead executes the 
stack string. An example of 
this is given in screen 15. 
This screen will be discussed 
later, but the thing to observe 
here is the format, which is: 

" <stack string>" SM 

The SD command 
(screen 14) takes a stack 
string and displays its defi- 
nition. For example, to see 
the definition for D & AB, you 
type: 

$ D&AB SD 

The displayed result will be: 

: D&AB 20VER ; 

If you wish, you can then 
compile this word by typing: 



SC 



The $ command (screen 



Forth Dimensions 



15 



November 1991 December 



two) takes the typed-in text 








string which follows and 


Scr 


# 6 STACKS. BLK 




puts its address and length 


\ 


Letter-to-number conversion and logic for operators. 


on the stack. If you want to 


1 






execute a stack string from 


2 : 


SL># (S Itr — adr len ) 


\ Find offset for letter. 


the keyboard, without ana- 


3 


S$l COUNT 3DUP + C! 


\ Save the letter, same count . 


lyzing or compiling it, you 


4 


ROT -SCAN ; 


\ See if letter occurs in string. 


can instead type: 


5 








6 : 


S2>1 (S — ) 


\ 2 items replaced by 1 result . 


$ D&AB SM 


7 


-2 S$l C+! 


\ Reduce item count . 




8 


1 LTR C+! LTR @ S$l+C 


; \ Use next available letter. 


Code Example 


9 






Screen 15 has an actual 


10 






example of a word defini- 


11 






tion using stack strings. It 


12 






looks for multiple occur- 


13 






rences of substring $ 1 within 


14 






text string S $ and replaces 


15 






them with the shorter 








substring $ 2 . To do this, we 








have to keep at least six 








items on the stack. Note the 


Scr 


# 7 STACKS. BLK 




consistent use of the am- 


\ 


Roll instruction determined by letter. 


persand in the stack strings 


1 






to retain the six bottom 


2 : 


SROLL (S itr — ) 


\ Stack roll per letter. 


items, except for the F I at 


3 


UPC DUP SL># DUP 


\ Check if valid. 


the end, which drops the 


4 


IF TUCK OVER 1+ -ROT 1+ 


CMOVE \ Update pseudo stack S$l. 


six items. The first letter is F 


5 


NIP 1- ?DUP 




in all but two stack strings, 


6 


IF .FLG @ 


\ roll = do nothing 


where a seventh item is 


7 


IF DUP 1 = 




added and thus becomes G. 


8 


IF DROP " SWAP 


" \ 1 roll = swap 


The stack strings F&BD- and 


9 


ELSE DUP 2 = 




F&OCED could have been 


10 


IF DROP " 


ROT" \ 2 roll = rot 


written as E&AC- and 


11 


ELSE S$0+# 


" ROLL" \ Standard roll 


D&OACB with the same re- 


12 


THEN THEN S$0-t-$ \ Put into display string 


sults, but sticking with the 


13 


ELSE ROLL 


\ Execute if display flag off 


letter F makes it easier to 


14 


THEN THEN 




understand, since this way 


15 


ELSE 2DR0P CR EMIT ." 


invalid" THEN ; 


each letter has a consistent 








meaning. 








The actual use for SR is 








to simplify the contents of 


Scr 


# 8 STACKS. BLK 




the text string (see screen 





\ Pseudo stack pick and drop. 


l6). Since the primitives in 


1 : 


SDROP (S Itr — ) 


\ Roll per letter and drop. 


the text string are machine 


2 


SROLL .FLG @ IF " DROP" 


S$0+$ ELSE DROP THEN -1 S$l C+ ! ; 


generated, without taking 


3 






all the rules into account. 


4 : 


SPICK (S Itr ~ ) 


\ Pick from stack per letter. 


there are certain simplifica- 


5 


DUP SL># DUP 


\ Check if valid. 


tions that can be carried 


6 


IF NIP 1- .FLG @ 




out. For example, SWAP 


7 


IF DUP 0= 




SWAP can safely be omitted. 


8 


IF DROP " DUP" 


\ pick = dup 


since the stack contents 


9 


ELSE DUP 1 = 




would be the same as before 


10 


IF DROP " OVER" \ 1 pick = over 


the SWAPS. This algorithm is 


11 


ELSE S$0+# " PICK" \ Standard pick 


only used in the text string. 


12 


THEN THEN S$0+$ 


\ Put into display string 


since in direct execution this 


13 


ELSE NIP PICK THEN 


\ Execute if display flag off 


substitution is unnecessary 


14 


S$l C@ 1+ S$l C! 


\ Update the count . 


and will execute correctly 


15 


ELSE 2DR0P CR EMIT ." 


invalid" THEN ; 
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Scr 
\ 
1 

2 : 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 



Scr # 

\ 

1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 



# 9 STACKS. BLK 

Pseudo stack initialization. 

SI5 (S adr len — adr'len') \ Return effective S$2 string. 
S$2 COUNT 2SWAP OVER \ Setup. 

IF DROP SWAP COUNT TUCK LC? \ Check if 1st char lower case. 
IF 1 3 ROLL \ If SO, check rest of string. 

?D0 DROP COUNT TUCK 3 ROLL - 1 <> 
IF I 1+ LEAVE THEN 1 
LOOP \ Loop while next letter is next 

ELSE DROP THEN 
THEN -ROT 2DR0P /STRING ; \ Skip those letters. 



\ Normalize pseudo stacks. 
\ Set up . 



10 STACKS. BLK 

Pseudo stack initialization 
SI3 (S ~ ) 
S$l COUNT TUCK + SWAP 
?D0 1- >R R@ C@ S$2 COUNT 

2 PICK 3DUP LC SCAN NIP 

IF DROP 2DR0P ELSE SCAN 

IF SWAP LC SWAP C! 

ELSE DROP SDROP THEN THEN R> \ Drop unused items 
LOOP DROP ; 



Check if S$l char Ic in S$2 
Check if S$l char uc in S$2 
If uc, make Ic. 



SI4 (S — adr len ) 
S$2 COUNT OVER 2 SWAP 
?D0 COUNT OP? 
IF LEAVE 

THEN SWAP 1+ SWAP 
LOOP DROP 2-0 MAX ; 



\ Return effective S$2 string 



\ If operator, back up two. 



Scr 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
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14 
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#11 STACKS. BLK 

\ Pseudo stack initialization. 

: SIl (S adr len — adr'len') \ Process origin pseudo stack 
OVER C@ DUP LTR ! ASCII g XOR DUP \ Get # of stack items. 
S$l C! ASCII A S$l 1+ ROT \ Set up 1st string. 
?D0 2DUP C! 1+ SWAP 1+ SWAP \ Store letters in 1st string 
LOOP 2DR0P 1 /STRING ; \ Prepare for 2nd string. 



SI2 (S adr len — ) 
S$2 OFF OVER CS ASCII & = 
IF S$l COUNT S$2 PLACE 

THEN 1 /STRING S$2 $+$ 

SI (S adr len — adr'len') 
SIl SI2 SI3 SI4 SI5 ; 



\ Do destination pseudo stack, 



\ Copy S$l if separator = '&', 
\ Append rest of original string 

\ Prepare pseudo stacks. 



without it. With extensive 
use of stack strings, more 
simplifications may come to 
light, which may then be 
added to the SN ' definition. 

Perhaps a better method 
would have been to use 
tokens instead of string 
substitutions, but I decided 
against that, since it would 
have required considerable 
rewriting of the code, 
without altering the basics. 
Please note the leading and 
trailing space in both strings. 
The SN ' algorithm is fairly 
slow in execution, but I 
believe that this can be im- 
proved considerably by 
searching for upper case 
only, or other optimization 
routines. Of course, com- 
piling the stack strings in 
screen 15, or replacing them 
with the equivalent primi- 
tives would speed things up 
too. 

Pseudo Stacks 

Let's take another look 
at screen 14. SM, since it 
executes the stack string 
directly, checks whether 
there are enough items on 
the stack and aborts if this is 
not the case. SD does not 
have that requirement, since 
it only creates the definition. 

Three internal strings are 
used (see screen two). First, 
there is the text string S$0, 
used by SD, to build a colon 
definition of the stack string. 
Next, there is starting string 
S$l, which contains a rep- 
resentation of the current 
stack picture. Third, there is 
the ending string S$2, which 
contains a representation of 
the stack configuration we 
want to end up with. I have 
named these two strings 
"pseudo stacks," since they 
reflect what goes on on the 
stack. 

Initialization 

Both SD and SM initial- 
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ize the pseudo stacks. This 
is a fairly complex process 
(see screens nine through 
11.) SI, onscreen 11, is the 
overall initialization word, 
which contains five com- 
ponents, SIl through SIS. 
S 1 1 prepares starting string 
S$l; it creates a string of 
consecutive letters from the 
first letter of the input string. 
For example, if that letter is 
F, itwill put ABCDEF in S $ 1. 
Next, SI2 first checks the 
separation character ( | or &). 
If it is an &, it places a copy 
of S$l into S$2. Any other 
character here is ignored. 
Next, the balance of the 
input string is appended. 

SI3 is a little more 
complex. Let's use an ex- 
ample to illustrate its op- 
eration. Let's say that our 
input string is F&AB. After 
SIl and SI2 have ex- 
ecuted, S$l will contain 
ABCDEF and S$2 will con- 
tain ABCDEFAB. Later on, in 
the main execution part of 
SD or SM, we will scan S$2 
from left to right and put 
each item in turn on the top 
of the stack. Let's go through 
that process here. 



SSI 


LeM 


Command 


ABCDEF 


A 


5 


ROLL 


BCDEFA 


B 


5 


ROLL 


CDEFAB 


C 


5 


ROLL 


DEFABC 


D 


5 


ROLL 


EFABCD 


E 


5 


ROLL 


FABCDE 


F 


5 


ROLL 


ABCDEF 


A 


5 


PICK 


ABCDEFA 


B 


5 


PICK 


ABCDEFAB 







You can see that each 
operation is either a ROLL 
or a PICK. The basic rule is 
that a ROLL is executed the 
first time an item is encoun- 
tered in S$2. Any subse- 
quent occurrence of that 
letter in S$2 will become a 
PICK. If it were a ROLL 



also, the first occurrence 
would be wiped out To 
differentiate between ROLLs 
and PICKS, we check each 
of the characters in S$l. If 
the character is found in 
S$2, we change the first 
occurrence to lower case. 
In our above example, 
therefore, the ABCDEFAB in 
S$2 will be converted to 
abcdef AB. Later, when we 
process S$2, we will do a 
ROLL when we encounter a 
lower-case character and a 
PICK when we find an 
upf)er-case character. 
Thus we get: 



SSI 


Letter 


CommanrI 


ABCDEF 


a 


5 


ROLL 


BCDEFA 


b 


5 


ROLL 


CDEFAB 


c 


5 


ROLL 


DEFABC 


d 


5 


ROLL 


EFABCD 


e 


5 


ROLL 


FABCDE 


f 


5 


ROLL 


ABCDEF 


A 


5 


PICK 


ABCDEFA 


B 


5 


PICK 


ABCDEFAB 







The above method is 
valid, but you have prob- 
ably noticed that putting 5 
ROLL six times was un- 
necessary and that all you 
really needed to do was 5 
PICK twice. Here we come 
to the second rule, which 
states that if the first charac- 
ter in S $ 2 is lower case, that 
character and any lower- 
case letter that follows it — if 
it is the next letter in the 
alphabet — is to be ignored 
in the processing. This is 
accomplished in intialization 
routine SIS. Thus we get: 

S$1 Letter Command 

ABCDEF A S PICK 
ABCDEFA B 5 PICK 
ABCDEFAB 

We are not done with 



S 1 3 yet Let's consider D | AC. 
This would translate to ABCD 
in S$l and ac in S$2. No- 
tice that B and D do not occur 
in S$2 and are therefore 
not needed. This brings 
about the third rule: Any 
stack item in S $ 1 which does 
not occur in S $ 2 is dropped 
before S $ 2 is processed. We 
would do ROT 2DR0P to 
execute D | AC. 

Before we get done with 
SIS, let's take a look at 
SI 4. Let's say we want to 
type part of a string whose 
address and length are on 
the stack, but ignoring the 
first n characters (stack 
picture: adr len n). For this, 
you would create the stack 
string CIAC+BC-, which 
would create ABC in S$l 
and ac+bC- in S$2. Let's 
analyze what would hap- 
pen: 





Letter 


ABC 


a 


BCA 


c 


BAC 


+ 


BD 


b 


DB 


C 



We should have done 1 
PICK (OVER) instead of 1 
ROLL when we encoun- 
tered the letter c. That way, 
we would still have a C to 
use later on. Rather than 
writing some complex logic 
to handle this, I decided on 
a different approach, which 
is to allow the user to de- 
cide which occurrence to 
ROLL by making it lower 
case. For example, if you 
use C I AC+BC-, you will get 
an error; but if you enter 
C I AC+Bc- Oast c in lower 
case), you won't get the 
error. S 1 3 first checks if the 
letter from S$l occurs in 
lower case in S $ 2 . If it does, 
no further checking is done 
on that character. Of course, 
if you compile a word like 



that, all the letters will be 
made upper case (at least in 
the version of Forth I have), 
but at that point it no longer 
matters, since the word has 
already been defined. 

Also notice that I ignored 
rule number two (the one 
that says to skip lower-case 
letters at the beginning of 
the string). This is because it 
doesn't fully apply in the 
case of an arithmetic op- 
eration: you have to have 
both items at the top of the 
stack to carry out the op- 
eration. S 1 4 checks for this. 
It looks for an arithmetic 
operation and, if found, it 
goes back two places and 
ends the string right there, 
at least as far as SIS is 
concerned. Any characters 
before that point are in- 
spected by SIS, but noth- 
ing beyond that point. When 



SIS is done, it returns the 
entire S $2 string, minus any 
leading characters at the start 
of the siring that can be 
ignored. 

String Processing 

Let's take a look at SD ' 
on screen 13. It processes 
the modified S$2 string, 
passed on by SI 5. It in- 
spects each character, from 
left to right, and determines 
whether it is a lower-case 
letter, upper-case letter, 
numeral, arithmetic opera- 
tor, or other character. The 
.FLG variable is set on to 
indicate that the results are 
to be displayed. 

If the character is lower 
case, SROLL (see screen 
seven) is executed. SROLL 



Command 

2 ROLL ( ROT ) 

1 ROLL ( SWAP ) 

+ ( D = A + C ) 

1 ROLL ( SWAP ) 

Error! C no longer exists! 
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Scr # 12 



STACKS.BLK 



\ Manipulate per pseudo stacks . 

: SM' (S itms adr len — itms') 
.FLG OFF 

?D0 COUNT SWAP >R DUP LC? 



\ Execute stack string 2 , 



IF SROLL 
IF SPICK 
IF DROP + 
IF DROP - 
IF DROP * 
IF DROP / 



ELSE DUP UC? 
ELSE DUP ASCII 
S2>1 ELSE DUP ASCII 
S2>1 ELSE DUP ASCII 
S2>1 ELSE DUP ASCII 
S2>1 ELSE DUP NUM? 

XOR 



+ = 



/ 



IF DUP S$l+C ASCII 
ELSE DUP S$l+C 

THEN THEN THEN THEN THEN THEN THEN R> 
LOOP DROP ; 



#13 STACKS.BLK 

Manipulate per pseudo stacks , 




1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



Scr 



1 

2 

3 

4 

5 

6 

7 
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14 
15 



Scr #14 STACKS.BLK 
\ High level stack manipulation words. 
1 

SM (S itms adr len — itms') \ Manipulate stack per string. 
OVER C@ ASCII @ XOR DUP 4 + DEPTH > \ Check the stack depth. 
IF CR . ABORT" stack items needed" \ Stack underflow. 



SD" 



(S adr len — ) .FLG ON 



\ Interpret string S$2, 



?D0 COUNT SWAP >R 

DUP LC? IF SROLL ELSE 

DUP UC? IF SPICK ELSE 

DUP NUM? IF DUP S$0+C S$l+C ELSE \ Pick 

DUP OP? IF S$0+C S2>1 ELSE \ Numeral 

DUP " ASCII" S$0+$ S$0+C S$l+C 

THEN THEN THEN THEN R> 
LOOP DROP ; 



\ Roll 



\ Operator 
\ Other character 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



ELSE DROP SI SM' THEN 



\ Initialize, then execute. 



DEFER SN 

: SD (S adr len — ) 
S$0I 2DUP S$0+$ 
59 S$0+C SN 
CR S$0 COUNT TYPE 



\ Define new stack word in S$0. 

SI SD' \ Build definition. 

\ Append semicolon, normalize. 

\ Display it . 



SC (S — ) S$0 COUNT 
TUCK TIB SWAP CMOVE 



\ Compile text string S$0. 
#TIB ! BLK OFF >IN OFF INTERPRET 



first converts the character 
on the stack back to upper 
case, then executes SL># 
(screen six), which scans 
S$l in reverse direction to 
locate an occurrence of that 
letter. It also appends a copy 
of the letter to the end of 
S$l, but without incre- 
menting the character count. 

If the letter is not found 
in S$l, an "invalid" mes- 
sage is displayed to indicate 
that the operation failed. If 
the letter is found, SL># 
returns its position on the 
stack (relative to the top) 
where the item occurs and 
S$l is rearranged to move 
the letter from where it oc- 
curred to the end of the 
string and the number itself 
is decremented by one. 

Next, we check the 
decremented number. If it 
is zero, no action is neces- 
sary, since ROLL is in fact 
a no-operation. Otherwise, 
if . FLG (display flag) is false, 
a ROLL is executed to move 
the item to the top of the 
actual stack. If . FLG is true, 
we check the number fur- 
ther. If it is a one, we drop 
the number and move 
"SWAP" to the text string, 
since 1 ROLL is equivalent 
to SWAP. If it is a two, we 
also drop it and move " ROT " 
to the text string. If it is any 
other number, we convert it 
to ASCII, append it to the 
text string, followed by a 
space and the literal 
"ROLL". 

Note that this special- 
case processing could also 
have been done in the top 
level SN ' routine, but that 
routine had not been writ- 
ten at that point 

SPICK (screen eight) 
works similarly to SROLL. 
Special cases are PICK 
(DUP) and 1 PICK (OVER). 
Also note that the character 
count of S $ 1 is incremented 
to account for the increased 
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stack depth. 

SDROP, depending on 
• FLG, either executes a 
DROP or appends "DROP" 
to the text string, and in 
both cases decrements the 
count of S$l to reflect the 
decreased stack depth. 

Note that there are only 
three basic stack operations: 
ROLL, P ICK, and DROP . All 
others can be broken down 
into permutations of those 
three. 

Let's go back to SD ' on 
screen 13. If the character 
under consideration is nu- 
meric, it is appended to the 
text string and to the pseudo 
stack S $ 1 . If the character is 
an arithmetic operator, it is 
appended to the text string 
andS2>lis executed. S2>1 
(screen six) gets the next 
letter after the last one that 
was used, decrements the 
S $ 1 count by two, and then 
appends the new letter to 
S $ 1 (incrementing the count 
by one in the process.) The 
new letter is used to indicate 
that the result of the opera- 
tion is a new value. Inter- 
estingly, this letter can be 
reused later on in S $2 and 
can be ROLLed, P ICKed, or 
DROPped. 

If the character being 
processed in SD ' is neither 
a letter, a numeral, or an 
operator, it is appended to 
the text string as an ASCII 
character. This allows for a 
little extra flexibility in the 
use of stack strings, although 
I personally haven't found a 
use for it yet. 

SM' is, of course, used 
by SM. It has a similar pat- 
tern to SD ' , but is used to 
execute, rather than work 
with, the text string. 

Summary 

This code works and 
should be a useful addition 
to the Forth programmer's 
tool set. A lot more work 



Scr 


# 15 


STACKS 


.ELK 





1 


\ Substring substitution in S$0. 




2 


: SR 


(S al 11 a2 12 


— ) \ Replace 


all $1 with $2 in S$0. 


3 


S$0 


COUNT 






4 


BEGIN " F&ABEF" 


SM SEARCH \ 


Search for $1 in S$0. 


5 


IF /STRING 


\ Start where $1 is found. 


6 




" F&BD-" 


SM \ Compute 11 - 12. 


7 




" G&EG+EFG-" 


SM CMOVE \ Move trailing part of S$0. 


8 




" G&EF+G-G" 


SM BLANK - \ 


Blank, end, fix length. 


9 




" F&OCED" 


SM CMOVE \ 


Replace with $2, loop. 


10 


ELSE DROP TRUE 


THEN \ 


Exit if $1 not found. 


11 


UNTIL " F 1 " 


SM \ 


Clear the stack. 


12 


S$0 


COUNT -TRAILING SWAP 1- C! ; 


\ Update length of S$0. 


13 










14 










15 










Scr 


# 16 


STACKS 
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1 


\ Normalization of 


Stack commands 




2 


: SN' 


(S — ) 


\ Normalize text string. 


3 




SWAP SWAP " 


" " SR 




4 




ROT ROT " 


" -ROT " SR 




5 




1 + " 


" 1+ " SR 




6 




2 + " 


" 2+ " SR 




7 




2 * " 


" 2* " SR 




8 




2 1" 


" 2* " SR 




9 




SWAP + " 


" + " SR 




10 




SWAP * " 


" * " SR 




11 




OVER OVER " 


" 2DUP " SR 




12 




3 ROLL 3 ROLL 


" " 2 SWAP " SR 




13 




3 PICK 3 PICK 


" " 20VER " SR 




14 




DROP DROP " 


" 2 DROP " SR 




15 


' SN" 


IS SN 







can be done on the subject 
of stack manipulation, and I 
welcome any further sug- 
gestions and feedback you 
may have. 



Articles Needed 

Forth Dimensions depends on its readers — 
people just like you — to write about their 
versions of Forth utilities, interesting 
applications of Forth, a recent brainstorm, a 
new way of looking at an old problem, and 
issues about working in the real-life Forth 
world. Or write a tutorial, your ideas to make 
Forth and FIG more viable, or a letter that 
responds to a recent FD author. 

Write to: Editor, Fortli Dimensions, P.O. Box 
8231, San Jose, California 95155 
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botForth, FIG-FORTH 



QuikFind 
Siting Search 



Rob Chapman 
Edmonton, Alberta 



"T~his all started a few years ago compiling 
/ code on a 32-bit fig-FORTH. 

The dictionary contained thousands 
of words, and compilation often had to be 
started from the first file. This took a lot of 
time. I used this time to explore alternate 
dictionary look-up algorithms. Someone sug- 
gested a binary search and, since it is a fairly 
straightforward concept, I went ahead and 
implemented it. It greatly reduced compile 
times, and I was hooked on improving it 
further. Most people would say, "Oh yeah, 
but hashing would be faster," but they knew 
little beyond that Since I didn't take Computing 
Science, I immersed myself in a course of self- 
study on hashing. I picked up bits and pieces 
from some Forth papers and a few textbooks. 
And then the fun began; I evolved my ideas 
through Forth. 

I tried several schemes of turning strings 



CContinued on next page.) 



HASH 



REHASH 















string 















stnng 





index 



index 



Hash Algorithms. The hash algorithm XORs each character of 
the string with the index. After each XOR, the bits in e index are 
rotated left three bits. The rehash algorithm adds the first character 
plus one to the index. 




©Rehash 



even more unique number 



Strings 




Basic principles. In hashed indexing, an index is derived from the content of the 
string. The initial hash chops and blends the characters into a number. This number 
is unique for that particular sequence of characters, and it can be used as an index 
into a string table. If a collision occurs (two different strings produce the same hash 
number), the number is rehashed until it is unique. 
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into numbers until I hit upon 
one which gave the greatest 
amount of unique numbers. 
Now that I had a good hash 
algorithm, I needed to find 
the optimal seed. I did this 
by letting the algorithm run 
continuously overnight, 
trying out every l6-bit num- 
ber. It ran for about 20 hours, 
but one magic number stood 
out and I integrated it into 
the hashing algorithm. 

With the primary hash- 
ing algorithm settled upon, 
I needed an equally good 
secondary hashing algo- 
rithm to handle collisions. 
Since it might be used sev- 
eral times, it would have to 
be simple and efficient. I 
settled upon using the first 
letter of the string to create 
secondary hashes. 

While I developed the 
algorithm, I worked on the 
language as well, using many 
different factorings and 
names. 

Once I reached a break- 
even point of diminishing 
returns (i.e., compile time 
was so short that I had no 
more time to reduce com- 
pile time), I stopped and 
thought about it for a couple 
of years. 

It seemed like something 
was missing. The deficien- 
cies in the algorithm both- 
ered me. After a few gath- 
erings with fellow 
FUGgers,! the deficiencies 
were characterized and 
some complicated solutions 
were available. Since they 
were complicated, there 
seemed to be too large a 
payoff. 

Finally, the collection of 
everything in the grey mat- 
ter spawned a new idea 
which simply addressed a 
major deficiency. I imple- 
mented it and it worked. 
Andrew Scott then fine- 
tuned it in a few places and 
incorporated it into the 



A Code Walk-Through 

This is QuikFind expressed in botForth. Each section of code is preceded with a 
discussion. 

The number of locations in the string table should be a prime number to maximize the 
number of locations available for rehashing. 

( QuikFind: fast string finder ) 
( Rob Chapman Oct. 24, 1990 ) 
HEX 

3FD CONSTANT #entries 

( 1021 locations; should be a prime number ) 
DATA string-table #entries CELLS ALLOT 

BLEND and ASCKEY are the algorithms of HASH and rehash, respectively. BLEND 
pulls the next charaaer out of the character string and exclusive-ORs it with the hash index. 
It then rotates all the bits to the left with the most-significant bit becoming the least- 
significant bit. This is done for each character in the string to obtain the primary hash index. 
The second algorithm, ASCKEY, uses the first character of the string to hop to the next 
location in the string table. One is added to the ASCII value of the character to prevent 
the null character from causing an endless loop. 

( ==== 16-bit rotate left ==== ) 
: ROL ( n — n' ) DUP 2* 

SWAP 8000 AND IF 1 OR ENDIF ; 

( ==== Hashing algorithms ==== ) 
: BLEND ( string \ n — string' \ n' ) 
>R C0+ SWAP R> XOR ROL ROL ROL ; 

: ASCKEY ( string \ loc — string \ loc' ) 
OVER 1 + C@ 1 + CELLS + ; 

Once a location in the string table is hashed to, the strings are compared by MATCH?. 
CHARS pulls characters out of the two strings and MATCH? compares them. On the first 
byte, only the lower six bits are compared. The lower five bits are the count, and the sixth 
bit is a smudge bit If the smudge bit is set, the strings won't match. Two strings of zero 
length will produce a match. 

( ===== Short string compare; 

first byte: xx | smudge bit I 5 bit count ==== ) 
: CHARS ( a \ a — a+ \ a+ \ c \ c ) 

COUNT >R >R COUNT R> SWAP R> ; 

: MATCH? ( string \ name — flag ) 
CHARS OVER XOR 3F AND >R 
IF AND R> 
BEGIN 0= WHILE 

?DUP IF 1 - >R CHARS XOR R> SWAP 

ELSE 2DR0P YES EXIT ENDIF 
REPEAT DROP 2DR0P NO ; 

USED? and DIFFERENT? are used to interrogate a location in the string table. USED? 
returns a true if the location has something in it other than a zero or "0 st ring" (0 st r ing 
is used to replace strings which have been removed from the hash table), different? 
compares the given string against the one pointed to. A true results if the strings match 
or if the location is zero. 
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( ==== Table checks ===== ) 
DATA St ring , 

( zero-length-null-string for replacing deleted entries ) 

: USED? ( loc — f ) 

@ DUP IF OSTRING XOR ENDIF ; 

: DIFFERENT? ( String \ loc — f ) 
@ DUP 

IF MATCH? 0= 
ELSE NIP ENDIF ; 

HASH, REHASH, BUMP, and LOCATE Can be considered as internal messages to the 
string table. HASH starts with the magic number D177 and blends all the characters into 
iL This number is MODed with the size of the hash table to obtain the location index. 
REHASH finds the next location, based on the ASCKEY algorithm. BUMP is used by INSERT 
to bump an older definition in the table, which happens when a word is redefined. 
LOCATE finds a given string in the table or the first zero location. 

( ===== Messages for implicit string table ==== ) 

( internal: ) 

: HASH ( string — loc ) 

D177 ( magic seed ) SWAP 

COUNT IF AND 

FOR BLEND NEXT NIP 

♦entries MOD 

CELLS string-table + ; 

: REHASH ( string \ loc — string \ loc' ) 
ASCKEY 

DUP string-table 
♦entries CELLS + > 

IF #entries CELLS - ENDIF ; 

: BUMP ( string \ loc — string' \ loc ) 
DUP >R DUP @ >R ! R> R> ; 

: LOCATE ( string — loc ) 
DUP HASH 

BEGIN 2DUP DIFFERENT? 
WHILE REHASH REPEAT NIP ; 

INSERT, APPEND, DELETE, QUIKFIND, and EMPTY can be considered as external 
messages to the string table. INSERT is used to insert a string into the string table. If it 
encounters a twin (i.e., a redefinition), then the string is inserted at that location and the 
twin is inserted after it APPEND is used to insert a string into the table, as well. It differs 
in the fact that it does not bump definitions. INSERT and APPEND apply link-list func- 
tionality to the string table. When a string is rehashed, it is like moving to the next link 
in a link list. DELETE removes a string from the table. To maintain rehash lists, it must be 
replaced with another string. If it was replaced with a zero, it would be like truncating a 
link list (or several). string is a string that will never occur normally, so it is used as 
the hole filler. It may be replaced with another string. QUIKF IND accepts a string and finds 
a match or zero within the table. EMPTY is used to initialize the string table to all zeroes. 



( external : ) 
: INSERT ( string — ) 
BEGIN DUP USED? 



DUP HASH 



compiler. 

The Final Piece 

The major deficiency I 
refer to is the ability to de- 
lete single strings from the 
string table. Since this table 
replaces the traditional link 
list, it should provide 
equivalent functionality 
(insert, append, and delete). 
In the link list model of a 
Forth dictionary, it is easy to 
add some new words and 
then remove them (vocabu- 
lary or module scoping). In 
my first attempt at the hash 
algorithm two years ago, I 
simply reinstalled all the 
words into the table when 
any words were removed 
from the Forth link list This 
took about half a second 
and discouraged the use of 
modules for scoping. It 
worked, but I wasn't happy. 

The solution to this ma- 
jor deficiency was to re- 
place the string to be re- 
moved with an empty string. 
Otherwise, if a string was 
deleted from the hash table 
and replaced with a zero, it 
might truncate other hash 
paths which bounce through 
this location. It's a simple 
and obvious idea, once you 
discover it This empty string 
is a predefined string with a 
zero count byte. 

This means there are 
three types of locations in 
the table: unused, used, and 
dirty. The unused locations 
contain a zero and indicate 
the end of the current re- 
hash search path. The used 
location contains a pointer 
to the word name. The dirty 
locations point to the empty 
string. When searching for a 
string, the empty locations 
are skipped over. When 
searching for a place to in- 
sert a string (or append), 
the dirty locations may be 
used as well as the unused 
locations. 



Forth Dimensions 



23 



November 1991 December 



A Few Measurements 

When I did some com- 
parisons between search- 
ing for words using a link 
list or the hash algorithm, 
the hash algorithm was any- 
where from three to 450 
times faster. The dictionary 
had about 250 words. The 
link list algorithm searched 
125 words on the average, 
while the QuikFind algo- 
rithm searched about 1.2 
words on the average. Al- 
though this is a major 
function of compiling, the 
compile times won't be de- 
creased by such massive 
amounts, since there are 
other processes involved. 

Other Thoughts 

The code included in this 
paper allows only one string 
table to be defined. This is 
sufficient for most needs, 
but if the ability to create 
multiple string tables were 
added, the QuikFind algo- 
rithm would be available 
for other uses. In this case, 
the table could be thought 
of as an object which re- 
ceived the messages IN- 
SERT, APPEND, DELETE, 
QUIKFIND, and EMPTY. 

Rob Chapman is a software engineer 
at IDACOM, a division of Hewlett- 
Packard. He is currently on a mission 
to port the simplest Forth (botF«rth) to 
every platform (in the simplest way, of 
course). 

1. Forth Users Group: 
weekly noon-hour rap ses- 
sions with Forth as a central 
topic. 



WHILE 2DUP @ MATCH? 
IF BUMP ENDIF 
REHASH REPEAT ! ; 

APPEND { string — ) 
DUP HASH 

BEGIN DUP USED? 

WHILE REHASH REPEAT ! 

DELETE ( String — ) 
LOCATE Ostring SWAP ! ; 



QUICKFIND 
LOCATE ; 



( String — entry | ) 



EMPTY ( — ) 
String-table 
♦entries CELLS 



FILL 



Here are two examples of how to hook QuikFind into the botForth compiler. INSTALL 
runs through the dictionary and installs all the words into the table. The redefinition of 
: creates a definition, unsmudges it, inserts it into the string table, and then smudges it. 
RECURS I VE unsmudges a word. If a word was smudged and inserted, it would not bump 
any previous definitions of the same name. 

( ==== Sample application ==== ) 

: INSTALL < — ) 
EMPTY LATEST 
BEGIN ?DUP 

WHILE @+ APPEND 
REPEAT ; 

: : ( ~ ) 

\ : \ RECURSIVE 
LATEST INSERT SMUDGE ; 



fig-FORTH to botForth 

These are a few definitions which should allow the QuikFind code to run on fig-FORTH. 

: CELL ( — n ) 2 ; 

: CELLS ( n — m ) CELL * ; 

: YES ( ~ f ) -1 ; 

: NO ( ~ f ) ; 

: NIP ( n \ m — m ) SWAP DROP / 

: C@+ (a — c \ a+ ) DUP C@ SWAP 1 + ; 

: \ ( — ) [COMPILE] [COMPILE] ; IMMEDIATE 

: ENDIF ( sys — ) \ LITERAL \ DO ; IMMEDIATE 
: NEXT ( sys — ) \ LOOP ; IMMEDIATE 



: DATA ( 



) VARIABLE CELL NEGATE ALLOT ; 
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HARVARD SOFTWORKS 

NUMBER ONE IN FORTH INNOVATION 

(513) 748-0390 P.O. Box 69, Springboro, OH 45066 



MEET THAT DEADLINE 1 1 ! 

• Use subroutine libraries written for 
other languages! More efficiently! 

• Combine raw power of extensible 
languages with convenience of 
carefully implemented functions! 

• Yes, it is faster than optimized C! 

• Compile 40,000 lines per minute! 

• Stay totally interactive, even while 
compiling! 

• Program at any level of abstraction 
from machine code thru application 
specific language with equal ease 
and efficiency! 

• Alter routines without recompiling! 

• Use source code for 2500 fiinctions! 

• Use data structures, control 
structures, and interface protocols 
from any other language! 

• Implement borrowed feature, often 
more efficiently than in the source! 

• Use an architecture that supports 
small programs or full megabyte 
ones with a single version! 

• Forget chaotic syntax requirements! 

• Outperform good programmers 
stuck using conventional languages! 
(But only until they also switch.) 

HS/FORTH with POOPS - The only 
full multiple inheritance 
interactive object oriented 
language under MSDOSl 

Seeing is believing, OOL's really are 
incredible at simplifying important 
parts of any significant program. So 
naturally the theoreticians drive the 
idea into the ground trying to bend all 
tasks to their noble mold. Add on 
OOL's provide a better solution, but 
only Forth allows the add on to blend 
in as an integral part of the language 
and only HS/FORTH provides true 
multiple inheritance & membership. 

Lets define classes BODY, ARM, and 
ROBOT, with methods MOVE and 
RAISE. The ROBOT class inherits: 

INHERIT> BODY 

HAS> ARM RightArm 

HAS> ARM LeftArm 
If Simon, Alvin, and Theodore are 
robots we could control them with: 
Alvin 's RightArm RAISE or: 
+5 -10 Simon MOVE or: 
+5 +20 FOR-ALL ROBOT MOVE 
Now that is a null learning curve! 



WAKE UP I ! ! 

Forth is no longer a language that 
tempts programmers with "great 
expectations", then frustrates them 
with the need to reinvent simple tools 
expected in any commercial language. 

HS/FORTH Meets Your Needsl 

Don't judge Forth by public domain 
products or ones from vendors 
primarily interested in consulting - 
they profit from not providing needed 
tools! Public domain versions are 
cheap - if your time is worthless. 
Usefiil in learning Forth's basics, they 
fail to show its true potential. Not to 
mention being s-l-o-w. 

We don't shortchange you with 
promises. We provide implemented 
functions to help you complete your 
application quickly. And we ask you 
not to shortchange us by trying to 
save a few bucks using inadequate 
public domain or pirate versions. We 
worked hard coming up with the ideas 
that you now see sprouting up in other 
Forths. We won't throw in the towel, 
but the drain on resources delays the 
introduction of even better tools. Don't 
kid yourself, you are not just another 
drop in the bucket, your personal 
decision really does matter. In return, 
well provide you with the best tools 
money can buy. 

The only limit with Forth is your 
own imagination! 

You can't add extensibility to fossilized 
compilers. You are at the mercy of 
that language's vendor. You can easily 
add features from other languages to 
HS/FORTH. And using our automatic 
optimizer or learning a very little bit 
of assembly language makes your 
addition zip along as well as in the 
parent language. 

Speaking of assembly language, 
learning it in a supportive Forth 
environment turns the learning curve 
into a light speed escalator. People 
who failed previous attempts to use 
assembly language, conquer it in a few 
hours or days using HS/FORTH. 



HS/FORTH runs under MSDOS or 
PCDOS, or from ROM. Each level includes 
all features of lower ones. Level upgrades: 
$25. plus price difference between levels. 
Source code is in ordinary ASCII text files. 

All HS/FORTH systems support full 
megabyte or larger programs & data, and 
run faster than any 64k limited ones even 
without automatic optimization - which 
accepts almost anything and accelerates to 
near assembly language speed. Optimizer, 
assembler, and tools can load transiently. 
Resize segments, redefine words, eliminate 
headers without recompiling. Compile 79 
and 83 Standard plus F83 programs. 

PERSONAL LEVEL $299. 
NEW! Fast direct to video memory text 
& scaled/clipped/windowed graphics in bit 
blit windows, mono, cga, ega, vga, all 
ellipsoids, splines, bezier curves, arcs, 
turtles; lightning fast pattern drawing even 
with irregular boundaries; powerful 
parsing, formatting, file and device I/O; 
DOS shells; interrupt handlers; 
call high level Forth from interrupts; 
single step trace, decompiler, music; 
compile 40,000 lines per minute, stacks; 
file search paths; format to strings, 
software floating point, trig, transcen- 
dental, 18 digit integer & scaled integer 
math; vars: A B * IS C compiles to 4 words, 
1..4 dimension var arrays; automatic 
optimizer for machine code speed. 

PROFESSIONAL LEVEL $399. 

hardware floating point - data structures 
for all data types from simple thru 
complex 4D var arrays - operations 
complete thm complex hjrperbolics; 
turnkey, seal; interactive dynamic linker 
for foreign subroutine libraries; round 
robin & interrupt driven multitaskers; 
dynamic string manager; file blocks, 
sector mapped blocks; x86&7 assemblers. 

PRODUCTION LEVEL $499. 
Metacompiler: DOS/ROM/direct/indirect; 
threaded systems start at 200 bytes, 
Forth cores from 2 kbytes; 
C data structures & stmct+ compiler, 
THirboWindow-C MetaGraphics library, 
200 graphic/window functions, PostScript 
style line attributes & fonts, viewports. 

ONLINE GLOSSARY $ 4S. 

PROFESSIONAL ami PRODUCTION 
LEVEL EXTENSIONS: 

FOOPS+ with multiple inheritance $ 79. 
TOOLS & TOYS DISK $ 79. 

286FORTH or 386FORTH $299. 

16 Megabyte physical address space or 
gigabyte virtual for programs and data; 
DOS & BIOS fiiUy and freely available; 
32 bit address/operand range with 386. 

ROMULUS HS/FORTH from ROM $ 99. 

FFORTRAN translator/mathpak $ 79. 
Compile Fortran subroutines! Formulas, 
logic, do loops, arrays; matrix math, 
FFT, linear equations, random numbers. 

Shipping/system: US: $7. Canada: $19. 
foreign: $49. We accept MC, VISA, & AmEx 
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A message from the President of the Forth Interest Group 

I Have a Dream 



Forth Dimensions 

Although Forth Dimen- 
sions is the best and most 
beautiful publication that 
any language group in the 
world has ever produced, 
there is always room for 
more improvements. One 
area where new ideas in 
Forth Dimensions will 
complement the new direc- 
tions we are taking FIG, is in 
the area of education: edu- 
cation of each of us, and 
education of members new 
to FIG and the Forth com- 
munity. 

Foreachoftts: Ithasbeen 
suggested by Russell Harris 
that we need technical ar- 
ticles dealing with hands- 
on construction. Many of us 



would welcome more how- 
to-do-it articles. We need a 
"Steve Ciarcia" of Forth Di- 
mensions, or at least an 
editor of a column along 
those lines. Russell was as- 
tounded that someone had 
passed up the opportunity 
to explain the coristruction 
of the 'Forth Gizmo" from 
the 1968 Los Angeles Forth 
Convention in Forth Di- 
mensions. He could be 
convinced to write some 



hands-on articles and serve 
as the editor of such a col- 
umn, if others will also write 
"get-your-hands-dirty" ar- 
ticles. Marlin will be coor- 
dinating this, so start orga- 
nizing your own contribu- 
tion. 

For new members: We 
need articles oriented to- 
ward new Forth users. We 
have become so sophisti- 
cated with Forth that we 
can only talk to each other. 
How many Forths are writ- 
ten these days in other lan- 
guages, to demonstrate the 
equivalences to people who 
use those other languages? 
We write Forth these days 
in Forth. We wind up talk- 
ing to ourselves. Each of us. 



no matter how new to Forth 
or how sophisticated, can 
write an article explaining 
some new insight that we 
just gained using Forth. 

Technical Hot lines 

One thing that ha(>pened 
when the Forth Interest 
Group, Inc. separated from 
the Silicon Valley FIG 
Chaj>ter was that we lost 
much of our technical Forth 
context and contacts. FIG 



supplies the indirect techni- 
cal information, but we have 
lost our ability for direct 
face-to-face technical sup- 
port Eharing a recent SVFIG 
meeting when this topic was 
discussed, many p>eople 
seemed only to be waiting 
to be asked to provide their 
time and telephone for a 
Technical Hot Line. We have 
started a list of experts for 
the Silicon Valley area. We 
need to extend this idea to 
the rest of the world. If any 
of you would like to par- 
ticipate and be available to 
answer technical questions 
about Forth or Forth-related 
topics, we will establish in 
FD a list of experts on dif- 
ferent topics with telephone 
numbers. 

I Have a Dream... 

We aren't a litde group 
with little ideas. We are an 
organization of I6OO very 
devoted and very idealistic 
individuals. We have made 
an impact over the 13 years 
we have existed. What other 
computer language group 
that is devoted to such 
radical changes can say that' 
The dream is not dead. It is 
probably more alive than it 
has ever been. The general 
downturn in the economy 
has discouraged us. The 
pressure from "iron found- 
ries" to sell larger and more 
expensive doodads has 
blinded us. The venture 



capitalists waving money in 
our faces have confused us. 

The dream is still alive. 
All we have to do is to think 
bigger, to bypass and step 
over these obstacles. While 
we debated our tuvel (case 
statements, control struc- 
tures, ANSI...), the rest of 
the software industry had 
time to catch up. We don't 
have the advantage we once 
had. We have become smug. 

But one spark, and the 
whole world will flame Forth 
again. We have to get 
working in the new areas 
that have developed while 
we debated, in areas where 
we will again capture the 
imagination of the world. 
How many of us have 
worked with the new RISC 
processors? How many of 
us have used object-oriented 
programming methods (in 
its pure form, it is very dose 
to our philosophy)? Have 
we seen a parallel Forth? 

We can't afford to let 
opportunities pass us by, as 
we have in the past. How 
many of us supported F83 
when it first became avail- 
able? Did FIG endorse or 
promote it' How many of us 
immediately supported the 
Novix chip when it first 
appeared? So it had prob- 
lems — with enough sup- 
port, all problems can be 
fixed. How many of us have 
put our jobs on the line to 
put Forth into the systems 
we were building? 

We think too small. The 
day-to-day blinders limit our 
scope of the world and re- 
strict our dreams. Break out 
and dream again! We are 
only limited by our narrow 
view of what is possible. 
Just as hardware has a limit 
to its speed and size and is 
rapidly coming to that limit, 
software has reached the 
limit of its complexity. Even 
simple applications are 



From the days of the 
programming Michelangelos, 
we have reached the depths 
of the paint mixers. 
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reaching the limit where 
complex languages and 
complex thinking are geo- 
metrically driving the nec- 
essary people and money 
beyond the reach of indi- 
viduals. 

I am tired of the com- 
plicated and complex, the 
dull and drab technologies, 
and work-for-wages tech- 
nocrats. Programming is an 
art and will always be. From 
the days of the programming 
Michelangelos, we have 
reached the depths of the 
paint mixers. 

1 want to polish the 
simplicity and elegance and 
let the Sword of Forth cut 
through the Gordian Knots 
of COBOL, Fortran, and C. 

I Sm Have a 
Small Dream... 
I want to make Forth 
one of the major program- 
ming philosophies of the 
world. 

I Have a 
Bigger Dream. . . 
I want to make the world 
better with applications that 
only Forth can make pos- 
sible. 



I am always available for 
comments (and maybe 
some humility). 



—John Hall 
510-535-1294 
JDHALL on GEnie 



(Letters, from page 12.) 
about the previous or next 
standard or versioa Because 
of economic and time con- 
straints, too many defections 
from Forth will make any- 
thing about Forth irrelevant. 
If Forth has not been a 
widely accepted language 
anyway, why not have a 
fresh beginning, just the way 
FIG got surted. With all the 
best programming minds in 
the industry, we should be 
able to attract new Forthians 
(especially software and 
hardware houses) if we 
become (finally?) unified. 

Note: Imagine what 
would happen if the Win- 
dows 3.0 operating system 
is a Forth system with DOS 
as only one of its default 
tasks. Users communicate 
with it using plain language, 
graphics, or (for power us- 
ers) object-oriented Forth. 
This is only possible pro- 
vided the company doing it 
makes money and puts 
some of it toward creating 
the next money-making 
Forth product with mass- 
market appeal. 

There are many more 
questions and statements 
than we have time for. If 
you would like them all, 
please let us know. 

We do not understand 
why Forthians keep saying 
how great Forth is, how 
many great programmers we 
have, and that Forth can 
hold its own against any 
language — ^yet we are a 
dying breed. Could the an- 
swer be, "Money, money, 
money makes the world 
(and Forth) go round"? 

Take my advice. Use FD 
to make money for all 
Forthians or soon there will 
be fewer than 2000 hard- 
core hobbyists (profession- 
alsiO. 

We are prepared to sell 
our hardware (documenta- 
tion included) at the lowest 



price of any similar hard- 
ware you can find on the 
world-wide market, pro- 
vided it is used in a Forth 
language project and, if 
possible, that the project is 
described in FD and a ten 
percent commission is paid 
to FD if it publishes the 
vendor's name. (Using the 
profit motive to get support) 

John N.S. Tse 
Managing Director 
Chrisma Technology, Ltd. 
45, Genting Lane #07-01 
Genting Warehouse Complex 
Singapore 1334 

We thank Mr Tse sin- 
cerely for his advice, because 
it is possible that a sweeping 
change, of the scope he 
suggests, may be exactly 
what FIG andFD need. His 
arguments are given greater 
strength by the coincidental- 
but-congruous contents of 
this issue's "Guest Editorial" 
and "President's Letter." I 
will forward these recom- 
mendations to FIG'S Busi- 
ness Group and Board of 
Directors, and will include 
specific reference to them in 
a letter soliciting feedback 
from Forth vendors. Our 
readers' and vendors' re- 
sponses to this material will 
surely influence how the FIG 
leadership regards it. 

lean offer some prelimi- 
nary, personal responses to 
a few of Mr. Tie's points. 

1. I agree that a major 
challenge is to address a 
widerreadershipwUhin our 
limited space. Practical, 
task-oriented articles are 
always sought after and, 
with the help mentioned in 
this issue's "President's Let- 
ter, " we hope to have found 
a way to start getting them. 
To date, we also have too 
little tutorial material for 
new Forth users; and, when 
wehaveaddressedprimarily 
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the middle-of-the-roadForth 
user, we have risked boring 
the corps of seasoned Forth 
experts who have kept us 
technically strong for all 
these years. 

2. Plans are under way 
right now to publish Forth 
news and product an- 
nouncements; the success of 
this department will rely on 
readers informing us of rel- 
evant items, andonvendors 
and developers sending 
timely press releases and 
announcements (very few 
currently do so). 

4. FD currently willpub- 
lish honest articles about 
Forth-drivable hardware of 
any kind, even if written by 
the developer, provided that 
itisnotjustanadvertisement 
in disguise — that is, the 
technical information must 
be at least as valuable to our 
readers as the space it oc- 
cupies on our pages. Togo 
further and begin publish- 
ing "extendedpress releases" 
as short articles, written by 
parties with a vested interest 
inthoseproducts, twuldalso 
be possible if YD receives a 
clear mandate to convert to 
an industry trade magazine 
format (see next item). 

5. Certainly many of the 
changes suggested would 
require an entirely different 
philosophy on FIG's part. 
Changing a magazine's di- 
rection and format can be 
accomplished with simple 
(but not that simple) logis- 
tics; changing its supporters' 
beliefs, expectations, and 
desires for it is another thing 
altogether. Peii}aps Mr. Tse 
is right— suddenly having a 
Forth industry trade publi- 
cation might be heady stuff, 
property invigorating, and 
good outreach to those we 
have not been able to ad- 
dress in our current format. 
But we would have to step 
out of the ivory tower of 

(Continued on page 31.) 
November 1991 December 
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If you thought discus- 
sion regarding the pending 
Forth Standard was waning, 
think again! Several issues 
still remain unresolved and 
bear some serious thought 
before the book is dosed 
and the seal is waxed on dp 
ANS Forth. One of the more 
unresolved of these issues 
is that of address alignment 
Please read the exchanges 
captured June 20, 1990 from 
ForthNet ports offRIME and 
Usenet comp.lang.forth, and 
from GEnie Forth Round- 
Table participants in Cat- 
egory 10, Topic 25. 

I have begun this dis- 
cussion with a proposal 
presented by Jack Woehr 
regarding problems unique 
to implementors of embed- 
ded Forth systems. This 
proposal alone amplifies the 
X3J14 Technical Commit- 
tee's task. It is not enough to 
make a set of rules — they 
must also consider how 
those rules affect a variety 
of platforms, not the least of 
which is embedded systems. 

Read, discover, partici- 
pate. 

Category 10: Forth 
Standards 

Discussions about the ANS 
Forth Standard for Tick, 

>BODY, [•]... 
Magnet:Charies Keane 
X3J14 Proposal 
Title: ROM-based Systems 
Quibble with >body 



Words: 

>BODY 

CREATE DOES> 
ENVIRONMENT? 

Abstract: 

>BODY as defined in BASIS 
14 may benefit from redefi- 
nition with an eye to port- 
ability between mixed RAM/ 
ROM and RAM-only sys- 
tems. 

Proposal: 
8.1.0550 >BODY 

In conjunction with 5.3. 2 
"Addressable Memory," this 
construct and the underly- 
ing concepts of PFA appear 
to be ambiguous for 
ROMmed creatures of 
CREATE which contain ad- 
dress tokens in their PFA. 

Propose: °a-addr is the 
parameter field associated 
with the execution token w 
of a word defined via 
CREATE. The contents of 
this address may be constant 
data, such as an address 
token to memory where the 
data which makes the 
CREATEd word useful is 
stored (as is often the case 
in a ROMmed system), or 
such data itself (as is typically 
the case in a RAM-only 
system). If there is any 
question as to which is the 
case, a Standard program 
should compare the token 
returned by >BODY with the 
token returned by 
EXECUTEing the CREATEd 



word itself" 

The counter argument 
could be brought that the 
above technique would not 
work for CREATE. . .DOES>. 
In such case, another 
CREATE construct could be 
examined by a Standard 
program to determine what 
sort of PFAs CREATE creates. 
In any event, it is hard to 
imagine a truly portable 
Standard program that 
would want access to the 
internals of a CREATE 
...DOES> word via >BODY. 
It would be safer, in such 
cases, simply to create some 
data structure that was more 
easily manipulable and then 
to write a colon definition 
that performed the desired 
action upon it. 

Alternatively, perhaps a 
query string could be de- 
fined for the ENVIRON- 
MENT? construct (8.1.1345) 
which could inform the 
Standard program as to 
whether CREATE words 
contain data or address 
pointers in their PFAs. 

Submitted by: 

Jack J. Woehr 

Vesta Technology Inc. 

7100 W. 44th Ave, Suite #101 

Wheat Ridge, Colorado 

80033 

Voice: (303) 422-8088 
FAX: (303) 422-9800 
BBS: (303) 278-0364 
jax@well.UUCP JAX on 
GEnie 



• • * 

Subject When to ALIGN 

In general, you don't 
need to ALIGN before 8 
and ! , but instead when 
using , (comma) after C,. 
It's usually used when cre- 
ating data structures. 

— ^Mitch Bradley 

wmb@Eng.Sun.COM 

* t » 

Subject ALIGN 

Reply-To: 

UNBCIC% 

BRFAPESP.BITNET@ 
SCFVM.GSFC.NASA.GOV 

" . . .whenyou <BUIIDS 
things, you need to align 
it And, if the word DOE S > 
nothing, the user will 
have to use ALIGN be- 
fore @ and ! too. Actu- 
ally, that's not true, if the 
system implementor did 
things right. The last 
word-aligned system I 
used automatically 
ALlGNed before every 
CREATE. This forced the 
parameter field to an 
even address (which was 
required for thread of a 
colon definition). So 
DOES> always returned 
an aligned address, and 
the user didn't have to 
worry about it. 

"Strings compiled in- 
line were always padded 
to an even number of 
bytes; this required a 
small bit of additional 
logic in run-time code 
which advances the IP 
over the string, but it was 
invisible to the user. (In- 
line byte parameters 
were forbidden, no great 
loss.)" 

1) I think the loss of the 
ability to compile bytes is a 
great loss. 

2) How about: 
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: DATA CREATE 

ALLOT ( NAME ) , 
( AGE ) ; 

15 30 DATA NAME_1 

Just putting 15 won't 
work. SPARCs have a four- 
bytes alignment restriction, 
too, for example. And on 
and on. And RECORD 
structures are very useJUl. 

—Daniel C. Sobral 

UNBaC@BRFAPESP.BrrNET 
« * • 

"1) I think the loss 
of the ability to com- 
pile bytes is a great 
loss." 

"Well, in the system I was 
speaking of, you didn't lose 
that ability. Structures had 
no alignment restrictions 
other than startingzi a word 
boundary. Which means 
that, yes, if you were care- 
less, you could create a 
structure which would lead 
to an addressing violation. 

What was lost was the 
ability to, for example, 
compile a BRANCH with a 
one-byte offset ("in-line" 
parameter). This was be- 
cause the thread needed to 
maintain word alignment 
You didn't lose any capa- 
bilities with this restriction, 
just some micro-optimiza- 
tions of memory usage. 

— Brad Rodriguez 

B.RODRIGUEZ2 [Brad] 
* • * 

Subject: Addressability of 

data space 

Reply-To: 

Mitch. Bradley% 

ENG.SUN.COM® 

SCFVM.GSFC.NASA.GOV 

"The troublesome 
clause from BASIS 13 is 
from section 5.3.2. It 
dearly states: 



"...it is an exception 
if a Standard Program 
addresses memory other 
thanlin dictionary space 
regionsjjrom the address 
provided by a CREATEd 
tvord or HERE to the end 
of the region generated 
by consecutive alloca- 
tions C, , C, , ALLOT, 
ALIGNS made without 
intervening definitions 
or deallocations (for- 
GET)...' [the rest of this 
section is about non- 
dictionary space] 

"This means that if 
you build a defined word 
with CREATE (or a word 
like DEFER which uses 
CREATE), say CREATE 
FOO, you can use the 
address returned by FOO. 
Period. Nowhere does it 
say you can tick FOO for 
its parameter field ad- 
dress, and this clause is 
carefully worded such 
that anything not explic- 
idy permitted is forbid- 
den. 

"Has this clause been 
fixed in the latest BASIS?" 

Basis 1 5 says pretty much 
the same thing (it's now 
section 5.4). 

I believe that this text is 
logically correct The text 
says that memory at that 
address is addressable. It 
does not, and indeed can- 
not, enumerate all the pos- 
sible ways of putting that 
address on the stack. For 
example, one could do the 
following: 

CREATE FOO 

1 C, 2 C, 3 C, 4 C, 

5 C, HERE 

CONSTANT XYZZY 

7 XYZZY 5 - C! 

The point is, section 5.4 
says that the memory ad- 
dress provided by a 
CREATEd word and by HERE 



is addressable, and that other 
memory addresses are not 
addressable. It does notszy 
that executing the CREATEd 
word is the only way of 
calculating that same ad- 
dress. 

However, since this 
section has already been 
misunderstood, I would like 
to hear suggestions for how 
to improve the wording. I 
Find that writing extremely 
precise English text is a very 
challenging task. 

By the w^ay, here's what 
Basis 15 says about >BODY: 

8.1.0550 >BODY 
"to-body" CORE 
(w - a-addr) 
a-addr is the data field ad- 
dress corresponding to the 
execution token w of a word 
defined via create. 
See also: 5-4 Addressable 
Memory 

The rationale box says: 
a-addr is the address that 
HERE would have returned 
had it been executed imme- 
diately after the execution 
of the CREATE that defined 
w. 

— ^Mitch Bradley 

Mitch.Bradley@Eng.Sun.COM 
♦ « » 

Subject: Addressability of 

data space 

Reply-To: 

wbrown@beva.bev.lbl.gov 
(BUI Brown) 

Seems I recall hearing 
somewhere that somebody 
offers, or at least once upon 
a time offered, an 8052 with 
a version of Forth in on- 
board ROM. Does anybody 
know if it's still available, 
and if it is who sells it and 
for how much? I was sure 
that I had the details some- 
where, however, if I do I 
must have put it in a really 



safe place! 

My interest is triggered 
by an article in the May '91 
issue of Elektor Electronics 
USA which has to do with 
an 8032/8052 single-board 
computer projea. It men- 
tions using an 8052 with 
BASIC in ROM, and at first 
glance it looks like it would 
make a neat Forth gadget, 
assuming that the Forth 
version of the 8052 is 
available. 

Disclaimer: These opin- 
ions are my own and have 
nothing to do with the offi- 
cial policy or the manage- 
ment of Lawrence Berkeley 
Labs, who probably couldn't 
care less about employees 
who play with trains. 

— Bill Brown 

wbrown@beva.bev.lbl.gov 
* • * 

Okay, I have a copy of 
BASIS 15 now. According to 
BASIS13, your example: 

CREATE ... 

HERE CONSTANT XYZZY 

would not necessarily work, 
because nothing equated the 
address returned by 
CREATEd words to the ad- 
dress returned by HERE. 

The first key addition in 
BASIS 15 was section 5.4.1, 
which states (among other 
things), "HERE always 
identifies the beginning of 
the next region to be allo- 
cated." 

The second key addition 
was the rationale note in 
>BODY that you quoted 
(although I don't know if 
the rationale note carries 
the same weight as the text 
of the standard itselO. 

At any rate, you've an- 
swered my question — the 
problem was fixed in BASIS 
15. 

By the way, I found the 
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section in BASIS 13 per- 
fectly understandable, 
Mitch. It's just that there was 
a difference between what 
it said and what everyone 
assumed. Thanks (to you or 
whoever) for elucidating this 
in BASIS 15. 

— Brad Rodriguez 
brad%candice@niaccs.uucp 
(God willing) or 
B.RODRIGUE22 on GEnie 
or 

brad%candice@ 

maccs.dcss.mcmaster.ca 

or 

bradford® 

maccs.dcss.mcmaster.ca 
(archaic) 

* • • 

Subject: 1.2.4 Alignment 
Problems 

Keywords: BASIS 15 ALIGN 
ALIGNED 

Re: BASIS 15 1.2.4 AUgn- 
ment Problems 

"An implementor of 
ANS Forth can handle 
these alignment restric- 
tions in one of two ways. 
Forth memory access 
words (@, !, +!, etc.) 
could be implemented 
in terms of smaller width 
access instmctions which 
have no alignment re- 
strictions.... 

"Although this con- 
ceals hardware ugliness 
from the progranuner, it 
is inefficient. 

"An alternative 
implementation of ANS 
Forth could define each 
memory access word 
using the native instruc- 
tions that most closely 
match the word's func- 
tion.... 

"In this case respon- 
sibility for giving 6 a 
correctly aligned address 
devolves on the pro- 
grammer. 

'Aportable ANS Forth 
program must assume 



the worst case and use 
the alignment operators 
described below. . ." 
The fundamental issue 
raised in Forth implementa- 
tions on machine architec- 
tures with alignment restric- 
tions, is whether to aim for 
maximum space efficiency 
(solution 1) or to aim for 
maximum speed efficiency 
(solution 2). Dependent on 
the kind of application, ei- 
ther of the solutions may 
result in better performance 
of a particular application. 
This suggests that the pro- 
grammer (or even the userO 
of the final application is 
best suited to make the space 
vs. speed decision. How- 
ever, BASIS 15 leaves the 
decision to the implementor 
of the Forth system. 
Big deal?! 

Well, yes... because, in 
order to let the implementor 
make that decision, BASIS 
15 supplies him with two 
core words (ALIGN and 
ALIGNED) that must be used 
by portable ANS Forth pro- 
grams. Besides breaking 
existing code (already 
mentioned by Mitch Brad- 
ley), this "solution" places 
the alignment burden on all 
programmers, including 
those who do not use 
alignment-restricted hard- 
ware. Unfair would be the 
least to call this; in order to 
let some people have the 
advantage of a speedier 
Forth, all the rest should 
suffer from alignment indi- 
gestion. 

Butshouldwethenforce 
implementors to choose the 
first solution? In principle, 
yes, but this sounds worse 
than it actually is: 

My suggestion would be 
for Forths on aligned ma- 
chines to implement both 
the space- and the speed- 
efficient versions of the 
memory-access words. Fur- 



thermore, when dealing 
with the speed-efficient 
words, the character unit 
should be cell-size so every 
operator would keep ad- 
dresses aligned. 

Different word lists 
should be used for the two 
kinds of definitions; the 
space-efficient words could, 
for example, be kept in 
SMALL, whereas their 
speed-efficient counterparts 
would reside in FAST. Now, 
when a program is ported 
from a non-aligned to an 
aligned environment, the 
programmer can first select 
the appropriate versions by 
executing SMALL or FAST, 
resulting in either small or 
fast compiled code. 

I'm sorry for L2 because 
he had to enter the whole 
alignedness into the basis 
document, but I would be 
even more sorry if hardware 
patches like ALIGN(ED) 
would enter the standard. 
For after all, who knows, in 
X years alignment restric- 
tions may no longer be rel- 
evant, but because some 
people in the 90s thought 
they were, Forthers are still 
aligning their data structures. 

— Jan Stout 

wsbusup4@rwa.urc.tue.nl 

Eindhoven University of 

Technology, Netherlands 
« • • 

Subject Address alignment 
Reply-To: Mitch Bradley 
<Mitch.Bradley% 
ENG.SUN.COM® 
SCFVM.GSFC.NASA.GOV> 
In a threaded-code 
implementation, the penalty 
foraibitrary-alignment @ and 
! operators is relatively 
small. 

In an optimized native- 
code system, where you are 
really pushing for speed, 
the situation is somewhat 
different. @ and ! are often 



expanded in-line on those 
systems, and peephole op- 
timization can frequently 
combine the access with 
nearby calculation steps 
and/or arithmetic and logi- 
cal operators. The require- 
ment for arbitrary alignment 
support makes this much 
more difficult, and the 
compiler is considerably less 
likely to succeed in gener- 
ating excellent code. 

I ran into this problem 
when I wrote a translator 
program that would convert 
68000 binary code into 
SPARC binary code. 68000s 
are two-byte aligned, and 
SPARCs are four-byte 
aligned. The alignment 
problems made the gener- 
ated SPARC code much 
worse in the general case, 
and caused me to go to a lot 
of trouble to get the trans- 
lator to guess about actual 
alignment at compile time. 

My experience with 
Forth programmers is that 
many of them want to be 
able to get the most out of 
their hardware, and are 
willing to go to a bit of extra 
programming effort to get it 
(e.g., by adding ALIGNED 
at judicious [places]. 

— ^Mitch Bradley 

MitdlBradley@E^R35UN.COM 
• * « 

Subject Alignment 

Reply-To: 

Mitch.Bradley% 

ENG.SUN.COM® 

SCFVM.GSFC.NASA.GOV 
"Hmmm... reading 
Robert Berkey's com- 
ments, I'm beginning to 
believe that all existing 
Forth code will be ren- 
dered nonconforming by 
the BASIS." 

In a sense, this is correct. 
However, I think a better 
way to look at it is as fol- 
lows: 
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ANS Forth will not magi- 
cally make existing code 
portable. Existing code will 
most likely continue to nin 
on the same systems that it 
currently runs on. Existing 
code that assumes arbitrary 
alignment is currently not 
portable to implementations 
that do not choose to "hide" 
hardware alignment restric- 
tions (a significant percent- 
age of Forth implementa- 
tions for such hardware). 

— ^Mitch Bradley 

Mitdiaadley@ENG5UN.CXM 
» • * 

Subject Align 

Reply-To: 

UNBCIC% 

BRFAPESP.BITNET® 
SCFVM.GSFC.NASA.GOV 

"From: Rob Sciuk 
"Subject: RE: Memory 
Management/PIC 

"Elizabeth points out 
that any standard defin- 
ing word should take 
care to align words 
G)odies, headers, and 
fields contained therein) 
on appropriate bound- 
aries. Further, ALLOT and 
, should align on cell 
boundaries, and C, 
should ensure that the 
next invocation of HERE, 
ALLOT, , (comma), etc. 
will utilize a cell bound- 
ary appropriate to the 
processor [mine]." 
C, should ensure that 
the next invocation of HERE, 
ALLOT, ... will utilize a ceU 
boundary?! It's better to live 
with a slow @ and ! than 
with this! We have only two 
options: 

1) Throw an overhead upon 

HERE, ALLOT, 

2) Make C, ALLOT a cell, 
thus acting as a comma. 

Another thing, if ALLOT 
and HERE always return an 
aligned address, it's better 
to make this very clear in 



the standard, or Structure 
Wordsets (which are very 
conmion) will be a source 
of lots of errors. I wouldn't 
like an ALLOT that aligns, 
but then, you can never 
satisfy everyone. 

Errare Humanimi Est... 

...Perseverare Autem 
Diabolicum 
— Daniel C. Sobral 
UNBaC@BRFAPESP.BITNEr 
UNBdOgFPSPJAPESPANSPBR 
(No one but me is respon- 
sible for the above message.) 
» • » 

Subject Align 

Daniel C. Sobral writes: 
"C, should ensure 
that the next invocation 
of HERE, ALLOT... will 
Utilize a cell boundary?!" 
Good, it wasn't just me 
who thought this was a lousy 
idea. I was wondering how 
C, would ever accomplish 
this, short of always allo- 
cating enough bytes to end 
up on a cell boundary. But 
then, how do you pack bytes 
with successions of C,? 

I'm always hesitant of 
posting to this group; hav- 
ing read publications by 
many of the other posters, it 
is hard for me to think of 
myself as a peer. For ex- 



ample, I assume there must 
be something I don't un- 
derstand about all these 
ALIGNment issues. Haven't 
we been living with ALIGN 
on 68000s for a decade now? 
I've always assumed that 
the implementation was 
pretty straightforward: AL- 
LOT ensures that the ad- 
dress generated for the vari- 
able being allotted is appro- 
priate to the size of the 
variable, allocating extra 
bytes to make it so. Of 
course, this assumes the size 
is a "natural" size for the 
processor, usually bytes, 
longs, etc. For "unnatural" 
records, you had to align 
things manually. Is there 
something new I'm missing? 

By the way: alignment to 
a cell boundary is not nec- 
essarily sufficient, depend- 
ing on the processor. For 
example, the i860 requires 
address alignment to be 
MOD (size of variable) , 
or there is a very high per- 
formance penalty on 
memory accesses. 

— Nicolas Tamburri 

nick@sw.stratus.com 

• * * 

— Gary Smith 
GARYS on GEnie 



(Letters, from page 27.) 

technical objectivity and 
commercial in^artialiiy (to 
the degree that we have 
achieved either of those), 
and relinquish the "clubby" 
familiar-ness of what we 
have enjoyedaUtheseyears. 
(See Mr. Tse's points ten. 11, 
13. 14. 17). 

7. Yes,please!Wedowant 
topublish examples of Forth 
doingagoodjobatan inter- 
esting task, or even at a 
boringtaskifitdemonstrates 
technology that can be 
transferred profitably to 
other sites/applications by 
other Forth users. 

These few thoughts, as I 
stated ainwe, are prelimi- 
nary — Mr. Tse's letter 
crossedmydeskduringfinal 
pre^)ress preparations. His 
remarkschallengeustoopen 
uptogreaterpossibilitiesand 
higher stakes than we have 
considered here before. May 
they lead us to thoughtfid 
consideration and fruitful 
discussion, and to a vision 
of Forth and FIG that will 
serve well in the future. 

Please send your relies 
to me at the Forth Interest 
Group mailing address or to 
my MARUN.O e-mail ad- 
dress on GEnie. — Ed. 
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I,. 



Pascal and others 

machine with sophisbcated^orth editor and related tools This 
can resuN in 4 to 10 bmea greater productivity. 

pitelng — Integrate with System Disk only what 



you ' 



EXPERT-2 txiMft System LN.M'JCipn'i 
FORTNCOM - Flexible data transfer 



UTILITIES 



$4995 

Graphics, 8087 support and other facilitiea. 



and a HtHe mom! 



THIRTY-DAY FREE OFFER - Fr»e MMSFORTH 
CiAME^i DISK * ■ ! . * ■ rchase of MMSFORTH 

Sjsvp. i-;ryphkjiio7e Hri per, othello, break- 



Caff ler Am bracHun^ Isehnlcal Alto or pi<c*v a 
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Forth resources S contact information 



Please send updates, corrections, additions^ listings, and suggestions to the Editor. 



Forth Interest Group 




The Forth Interest Group serves both expert and 


novice members with its network of chapters, Forth 


Dimensions, mail-order services, and on-line activities. 


For membership information, or to reserve advertising 


space, contact the administrative offices: 


Forth Interest Group 




P.O. Box 8231 




San Jose, California 95155 


408-277-0668 




Fax: 408-286-8988 




Board of Directors 


Founding Directors 


John Hall, President 


William Ragsdale 


C.H. Ting, Vice-President 


Kim Harris 


Mike Elola, Secretary 


Dave Boulton 


Dermis Ruffer, Treasurer 


Dave Kilbridge 


Wil Baden 




Jack Brown 




David Petty 




Dennis RufFer 





In Recognition 



Recognition is offered an- 
nually to a person who has 
made an outstanding con- 
tribution in support of Forth 
and the Forth Interest 
Group. The individual is 
nomiruted and selected by 
previous recipients of the 
"FIGGY." Each receives an 
engraved award, and is 
named on a plaque in the 
administrative offices. 



1979 William Ragsdale 

1980 Kim Harris 

1981 Dave Kilbridge 

1982 Roy Martens 

1983 John D. Hall 

1984 Robert Reiling 

1985 Thea Martin 

1986 C.H. Ting 

1987 Marlin Ouverson 

1988 Dennis Ruffer 

1989 Jan Shepherd 

1990 Gary Smith 



ANS Fortii 




The following members of the ANS X3J14 Forth Stan- 


dard Committee are available to personally cany your 


proposals and concerns to the committee. Please feel 


free to call or write to them direcdy: 


Gary Betts 


Charles Keane 


Unisyn 


Performance Pkgs., Inc. 


301 Main, penthouse #2 515 Fourth Avenue 


Longmont, CO 80501 Watervleit, NY 12189-3703 


303-924-9193 


518-274-4774 


Mike Nemeth 


George Shaw 


CSC 


Shaw Laboratories 


10025 Locust St. 


P.O. Box 3471 


Glenndale, MD 20769 Hayward, CA 94540-3471 


301-286-8313 


415-276-5953 


Andrew Kobziar 


David C. Petty 


NCR 


Digitel 


Medical Systems Group 125 Cambridge Park Dr. 


950 Danby Rd. 


Cambridge, MA 02140-2311 


Ithaca, NY 14850 




607-273-5310 




Elizabeth D. Rather 


FORTH, Inc. 




Ill N. Sepulveda Blvd., 


suite 300 




Manhattan Beach, CA 90266 


213-372-8493 





Fortit Instruction 



Los Angeles — Introductory and intermediate three-day 
intensive courses in Forth programming are offered 
monthly by Laboratory Microsystems. These hands-on 
courses are designed for engineers and programmers 
who need to become proficient in Forth in the least 
amount of time. Telephone 213-306-7412. 
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On-Line Resources 




To communicate with these systems, set your modem and 


Other Forth-specific BBS's 


International Forth BBS's 


communication software to 300/1200/2400 baud with eight 


• Laboratory Microsystems, 


• Meltxjume rio Cnapter 


bits, no parity, and one stop bit, unless noted otherwise. 


Inc. 


(03) 809-1787 in Australia 


lie 1 CKJkJII l\^\^CU w V^l IW> 




213-306-3530 


61-3-809-1787 international 






StarLink node 9184 on 


SysOp: Lance Collins 


GEnie 


• Computer Language 


TymNet 


For information, 


Magazine Conference 


PC-Pursuit node calan on 


t7«**K CDC T I T ~\ T 

• rortn BBSJtDI 


call 800-638-9636 


Type !Go CLM 


TeleNet 


Paris, France 


• Forth RoundTable 


SysOcw: Jim Kyle, Jeff 


SysOp: Ray Duncan 


33 36 43 15 15 


iFortbNet*) 


Brenton, Chip Rabinowitz, 


7 data bits, 1 stop, even 


Call GEnie local node, then 


Regina Starr Ridley 


• Knowledge-Based Systems 


parity 


type M710 or FORTH 




Supports riitn 




SysOps: 


Unix BBS's uHO) forth. conf 


409-696-7055 


_ iLM—^m- Tine ^r»_— *!. 

• Max BBS (ForthNet'J 


Dennis Ruffer (D.RUFFER), 


(ForthNet* and reachable via 




Uniteu Kingdom 


Scott Squires 


StarLink node 9533 on 


• Druma Forth 6oa.ra 




(S.W. SQUIRES), 


TymNet and PC-Pursuit node 


512-323-2402 


SysOp: Jon Brooks 


Leonard Morgenstem 


casfa on TeleNet.) 


StarLink node 130d on 




(NMORGENSTERN), 


• WELL Forth conference 


TymNet 


• Sky Port (.ForthNet'J 


Gary Smith (GARY-S) 


Access WELL via 


SysOps: S. Suresh, James 


Unitea K.ingaoni 




CompuserveNet 


Martin, Anne Moore 


44-1-294-100O 


• MACH2 RoundTable 


or 415-332-6106 




SysOp: Andy Brimson 


Type M450 or MACH2 


Fairwitness: 


Non-torto-specij%c tSisi s unto 




Palo Alto Shipping 


Jack Woehr (jax) 


extensive Forth libraries 


• SweFIG 


Company 




• DataBit 


Per Aim Sweden 


SysOp: 


• Wetware Forth conference 


Alexandria, VA 


46-8-71-35751 


Waymen Askey (D.MILEY) 


415-753-5265 


703-719-9648 






Fairwitness: 


PCPursuit node dcwas 


• NEXUS Servicios de 


BIX(ByteNet) 


Gary Smith (gars) 


otarLinK node ZiSoz 


Informacion, S. L. 


For information. 




SysOp: Ken Flower 


iravesera de uait, ii>4-iot), 


call 800-227-2983 


PC Board BBS's devoted to 


cntio. 'i—j 


• Forth Conference 


Forth CPorthNet*) 


• 1 ne v-iave 


Uouzi oarceiona, opain 


Access BIX via TymNet, 


• British Columbia Forth 


San Jose, CA 


+ 54 3 /1U33?J tvoicej 


then type j forth 


Board 




+ 54 J i:l47zD^ tmodem.; 


Tvrv* FORTH at ih^* • 


604-434-5886 


PCPursuit node casjo 


SysOps: Jesus Consuegra, 


prompt 


SysOp: Jack Brown 


StarLink node 6450 


Juanma Barranquero 


SysOp: 




SysOp: Roger Lee 


barran@nexus.nsi.es 


Phil Wasson (PWASSON) 


• Grapevine 




(preferred) 




501-753-8121 to register 




barran@nsi.es 


• LMI Conference 


501-753-6389 




barran (on BIX) 


Type LMI at the : prompt 


StarLink node 9858 






LMI products 


SysOp: Jim Wenzel 






Host: 








Rav Dunf-an CRDIINCAN^ 


• Real-Time Control Forth 






Board 








303-278-0364 






For informsitionf 


SfarT ink nrvlf* 9S5%4 r»n 






call 800-848-8990 


TymNet 






• Creative Solutions Conf. 


PC-Pursuit node coden on 






type ivjO rvjKlH 








SysOps; Don Coibum, 


oys^-'p: jacK woenr 






Zach 2^chariah, Ward 








McFarland, Jon Bryan, 








Greg Guerin, John Baxter, 




This list was accurate as of February 1991. If you know 


John Jeppson 




another on-line Forth resource, please let me know so it can 






be included in this list. 1 can be reached in the following ways: 






Gary Smith 








P. 0. Drawer 7680 








Little Rock, Arkansas 72217 




'ForthNet is a virtual Forth network that links designated message 


Telephone: 501-227-7817 




bases in an attempt to provide greater information distribution 


Fax (group 3): 501-228-9374 




to the Forth users served. It is provided courtesy of the SysOps of 


GEnie (coSysOp. Forth RT and Unix RT): GARY-S 


its various links. 




Usenet domain.: uunetlddil llrarklglsrklgars 
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FIG Chapters 



The Forth Interest Group Chapters listed below are currently 
registered as active with regular meetings. If your chapter 
listing is missing or incorrect, please contact Anna Brereton 
at the FIG office's Chapter Desk. This listing will be updated 
regularly in Forth Dimensions. If you would like to begin a FIG 
Chapter in your area, write for a 'Chapter Kit and Applica- 
tion. " 

Forth Interest Group 

P.O. Box 8231 

San Jose, California 95155 



U.S.A. 

• ALABAMA 
Huntsville Chapter 

Tom Konantz 
(205) 881-6483 

• ALASKA 

Kodiak Area Chapter 

Ric Shepard 
Box 1344 

Kodiak, Alaska 99615 

• ARIZONA 
PhoenJx Chapter 

4th Thurs., 7:30 p.m. 
Arizona State Univ. 
Memorial Union, 2nd floor 
Dennis L. Wilson 
(602) 381-1146 

• CALIFORNIA 

Los Angeles Chapter 

4th Sat., 10 a.m. 
Hawthorne Publk: Library 
12700 S. Grevillea Ave. 
Phillip Wasson 
(213) 649-1428 

North Bay Chapter 

2nd Sat. 

12 noon tutwial, 1 p.m. Forth 
2055 Center St., Berkeley 
Leonard Morgenstem 
(415) 376-5241 

Orange County Chapter 

4th Wed., 7 p.m. 
FuUerton Savings 
Huntington Beach 
Noshir Jesung (714) 842-3032 

Sacramento Chapter 

4th Wed., 7 p.m. 
1708-59th St., Room A 
Bob Nash 
(916) 487-2044 

San Diego Chapter 

Thursdays, 12 Noon 
Guy Kelly (6l9) 454-1307 



Silicon Valley Chapter 

4th Sat., 10 a.m. 
Applied Bk) Systems 
Foster City 
John Hall 
(415) 535-1294 

Stockton Chapter 

Doug DUlon (209) 931-2448 

• COLORADO 
Denver Chapter 

1st Mon., 7 p.m. 

Clifford King (303) 693-34 13 

• FLORIDA 
Orlando Chapter 

Every other Wed., 8 p.m. 
Herman B. Gibson 
(305) 855-4790 

• GEORGIA 
Atlanta Chapter 

3rd Tues., 7 p.m. 
Emprise Corp., Marietta 
Don Schrader (404) 428-0811 

• ILLINOIS 

Cache Forth Chapter 
Oak Park 

Clyde W. Phillips, Jr. 
a08) 713-5365 

Central Illinois Chapter 

Champaign 

Robert Illyes (217) 359-6039 

• INDIANA 

Fort Wayne Chapter 

2nd Tues., 7 p.m. 
I/P Univ. Campus 
B71 Neff Hall 
Blair MacDermid 
(219) 749-2042 



• IOWA 

Central Iowa FIG Chapter 

1st Tues., 7:30 p.m. 
Iowa State Univ. 
214 Comp. Sci. 
Rodrfck Eldridge 
(515) 294-5659 

Fairfield FIG Chapter 

4th Day, 8:15 p.m. 

Gurdy Leete (515) 472-7782 

• MARYLAND 

MDRG 

3rd Wed, 6:30 p.m. 
JHU/APL, Bldg. 1 
Parsons Auditorium 
Mike Nemeth 
(301) 262-8140 (eves.) 

• MASSACHUSETTS 
Boston FIG 

3rd Wed, 7 p.m. 
Bull HN 

300 Concord Rd., Billerica 
Gary Chanson (6l7) 527-7206 

• MICHIGAN 
Detroit/Ann Arbor Area 
Bill Walters 

G13) 731-9660 
G13) 861-6465 (eves.) 

• MINNESOTA 
MNHG Chapter 

Minneapolis 
Fred Olson 
(612) 588-9532 

• MISSOURI 
Kansas City Chapter 

4th Tues., 7 p.m. 
Midwest Research Institute 
MAG Conference Center 
Linus Orth (913) 236-9189 

St. Louis Chapter 

1st Tues., 7 p.m. 
Thomhill Branch Library 
Robert Washam 
91 Weis Drive 
Ellisville, MO 63011 

• NEW JERSEY 

New Jersey Chapter 

Rutgers Univ., Piscataway 
Nicholas G. Lordi 
(908) 932-2662 

• NEWMEXICO 
Albuquerque Chapter 

IstThurs., 7:30 p.m. 
Physics & Astronomy Bldg. 
Univ. of New Mexico 
Jon Bryan (505) 298-3292 



• NEW YORK 
Long Island Chapter 

3rd Thurs., 7:30 p.m. 
Brookhaven National Lab 
AGS dept., 

bldg. 911, lab rm. A-202 
Irving Montanez 
(516) 282-2540 



Rochester Chapter 

Monroe Comm. College 
Bldg. 7, Rm. 102 
Frank Lanzafame 
(716) 482-3398 

• OHIO 

Columbus FIG Chapter 

4th Tues. 

Kal-Kan Foods, Inc. 
5115 Fisher Road 
Terry Webb 
(614) 878-7241 

Dayton Chapter 

2nd Tues. & 4th Wed., 6:30 p.m. 
CFC 

11 W. Monument Ave. #6 12 
Gary Ganger (513) 849-1483 

• PENNSYLVANIA 

Villanova Univ. Chapter 
1st Mon., 7:30 p.m. 
Villanova University 
Dennis Qark 
(215) 860-0700 

• TENNESSEE 

East Tennessee Chapter 

Oak Ridge 

3rd Wed., 7 p.m. 

Sci. Appl. Int'l. Corp., 8th Fl. 

800 Oak Ridge Turnpike 

Richard Secrist (6l5) 483-7242 

• TEXAS 
Austin Chapter 

Matt Lawrence 
PO Box 180409 
Austin, TX 78718 

Dallas Chapter 

4th Thurs., 7:30 p.m. 
Texas Instruments 
13500 N. Central Expwy. 
Semfconductor Cafeteria 
Conference Room A 
Wan-en Bean (214) 480-31 15 

Houston Chapter 

3rd Mon., 7:30 p.m. 
Houston Area League of 
PC Users (HAL-PC) 
1200 Post Oak Rd. 
(Galleria area) 
Russell Harris 
(713) 461-1618 
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• VERMOIST 
Vermont Chapter 

Vergennes 
3rd Mon., 7:30 p.m. 
Vergennes Union High School 
RM 210, Monkton Rd. 
Hal Clark (802) 453-4442 

• VIRGINIA 
First Forth of 
Hampton Roads 

William Edmonds 
(804) 898-4099 

Potomac FIG 

D. C. & Northern Virginia 
1st Tues. 

Lee Recreation Center 
5722 Lee Hwy., Arlington 
Joseph Brown 
(703) 471-4409 

E. Coast Forth Board 
a03) 442-8695 

Richmond Forth Group 

2nd Wed., 7 p.m. 
154 Business School 
Univ. of Richmond 
Donald A. Full 
(804) 739-3623 

• WISCONSIN 

Lake Superior Chapter 

2nd Fri., 7:30 p.m. 

1219 N. 21st St., Superior 

Allen Anway (715) 394-4061 



INTERNATIONAL 

• AUSTRALIA 
Melbourne Chapter 

1st Fri., 8 p.m. 

Lance Collins 

65 Martin Road 

Glen Iris, Vfctoria 3146 

03/889-2600 

BBS: 61 3 809 1787 

Sydney Chapter 

2nd Fri., 7 p.m. 

John Goodsell Bldg., RM LG19 

Univ. of New South Wales 

Peter Tregeagle 

10 Binda Rd. 

Yowie Bay 2228 

02/524-7490 

Usenet: 

tedr@usage.csd.unsw.o2 

• BELGIUM 
Bel^um Chapter 

4th Wed., 8 p.m. 
Luk Van Loock 
Lariksdreef 20 
2120 Schoten 
03/658-6343 

Southern Belgium Chapter 

Jean-Marc Bertinchamps 
Rue N. Monnom, 2 
B-6290 Nalinnes 
071/213858 

• CANADA 
Forth-BC 

1st Thurs., 7:30 p.m. 

BCIT, 3700 Willingdon Ave. 

BBY, Rm. lA-324 

Jack W. Brown 

(604) 596-9764 or 

(604) 436-0443 

BCFB BBS (604) 434-5886 

Northern Alberta Chapter 

4th Thurs., 7-9:30 p.m. 
N. Alta. Inst, of Tech. 
Tony Van Muyden 
(403) 486-6666 (days) 
(403) 962-2203 (eves.) 

Southern Ontario Chapter 

Quarterly: 1st Sat. of Mar., 
June, and Dec. 2nd Sat. of Sept. 
Genl. Sci. Bldg., RM 212 
McMaster University 
Dr. N. Solntseff 
(416) 525-9140 x3443 



• ENGLAND 

Forth Interest Group-UK 

London 

1st Thurs., 7 p.m. 

Polytechnic of South Bank 

RM 408 

Borough Rd, 

D.J. Neale 

58 Woodland Way 

Morden, Surry SM4 4DS 

• FINLAND 
FinHG 

Janne Kotiranta 
Arkkitehdinkatu 38 c 39 
33720 Tamfjere 
+358-31-184246 

• GERMANY 
Germany FIG Chapter 

Heinz Schnitter 
Forth-Gesellschaft e.V. 
Postfach 1110 
D-8044 Unterschleissheim 
(49) (89) 317 3784 
e-mail uucp: 
secretary@forthev.UUCP 
Internet: 

secretary@Admin.FORTH-eV.de 

• HOLLAND 
Holland Chapter 

Maurits Wijzenbeek 
Nieuwendammerdijk 254 
1025 LX Amsterdam 
The Netherlands 
++(20) 636 2343 



• ITALY 
FIG Italia 

Marco Tausel 

Via Gerolamo Forni 48 

20161 Milano 



• JAPAN 
Japan Chapter 

Toshio Inoue 
University of Tokyo 
Dep*. of Mineral Develop- 
ment 

Faculty of Engineering 
7-3-1 Hongo, Bunkyo-ku 
Tokyo 113, Japan 
(81)3-3812-2111 ext. 7073 

• REPUBUC OF CHINA 
R.O.C. Chapter 

Ching-Tang Tseng 
P.O. Box 28 

Longtan, Taoyuan, Taiwan 
(03) 4798925 

• SWEDEN 
SweFIG 

Per Aim 
46/8-929631 

• SWITZERLAND 
Swiss Chapter 

Max Hugelshofer 
Industrieberatung 
Ziberstrasse 6 
8152 OpFikon 
01 810 9289 



SPECIAL GROUPS 
■ Forth Engines Users 
Group 

John Carpenter 
1698 Villa St. 

Mountain View, CA 94041 



'We have to get working in fite 
new areas tiiat Itave developed 
wtiile we debated, in areas 
witere we wili again capture 
file imagination of ffte worid." 

See "President's Letter" 
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Contributions from the Forth Community 



We are beginning to assemble a great collection of Forth code in machine-readable form. 
If you need a good Forth, it is probably here. 



Minimum-requirement Forths: 
The kitchen-sink Forths: 
Complete starters: 
Object-oriented Forths: 
Macintosh Forths: 
IBM Forths: 
Atari Forth: 
8051 Forths: 

Graphic and floating-point Forths: 
Forth tutorials: 



PocketForth, PYGMY, eForth 

F-PC, BBL 

F83, Kforth, ForST 

Yerkes, MOPS 

Yerkes, MOPS, PocketForth 

PYGMY, F-PC, BBL, F83, Kforth, eForth 

ForST 

8051 ROMmable Forth, eForth 
Yerkes, MOPS, F-PC, Kforth 

The Forth Course, F-PC Teach 



Applications: 



Forth List Handler, Forth Spreadsheet, 

Automatic Structure Charts, A Simple Inference Engine, 

The Math Toolbox 



Great demos from St. Petersburg: AstroForth and AstroOKO 

(See the Mail Order Form inside for more complete descriptions) 

Yet to come: 

• Collections of tools and techniques are being assembled that cover communications, hardware 

drivers, data analysis, and more math and numerical recipes. 

Things we need or which are not currently available in machine-readable form: 

• Original listings of fig-Forth for any machine on disk. We do not currently have them. 

• We can use many more applications and application ideas that include source code. 

• Code from the authors of FORML papers and past Forth Dimensions articles. 



Send submissions to: FIG, c/o Publications Committee, P.O Box 8231, San Jose, CA 95155 



Forth Interest Group 

P.O.Box 8231 

San Jose, CA 95155 



Second Class 
Postage Paid at 
San Jose, CA 



